Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов - Pascal

  1. вывести фамилии, имена и отчества всех студентов мужского пола , не сдавших более двх экзаменов


textual

Код к задаче: «Вывести фамилии, имена и отчества всех студентов мужского пола, не сдавших более двух экзаменов - Pascal»

type
  TStudent = record
    fio: String[63];
    male: Boolean;
    exam: array [1..3] of Integer;
  end;
var
  st: array [1..10] of Students;
  i, j, k, n: Integer;
begin
  {...}
  for i:=1 to n do with st[i] do
    if male then begin
      k:=0;
      for j:=Low(exam) to High(exam) do
        if exam[i]<3 then Inc(k);
      if k>2 then WriteLn(fio);
    end;
end.

СДЕЛАЙТЕ РЕПОСТ

12   голосов, оценка 3.667 из 5



Похожие ответы
  1. Помогите с решением задачи. Введенную строку вывести в обратном порядке (с последней буквы начинается и первой заканчивается) Формат ввода В входном файле с именем "changeling.in" записана строка текста. Гарантируется, что в строке не более 1000 символов, включая пробелы, а также текст состоит только из букв латинского алфавита нижнего регистра (маленькие буквы) и знаков препинания. Формат вывода В выходной файл с именем "changeling.out" выводится строка текста, удовлетворяющая условию задачи

  1. составить поставку,алгоритм и программу выдачи на экран в PASCALe неравных 3.2 значений функции t=ln(14.5q/152.9)+Sin5.3q на отрезке [k.w] с шагом z

  1. На клеточном поле дана окружность, с центром в середине клетки с координатами (xc; yc) и радиусом r. Нужно вывести координаты всех клеток, которые покрывает заданная окружность. Пример Ввод: 2 2 2 Вывод: 0 1 0 2 0 3 1 0 1 1 1 3 1 4 2 0 2 4 3 0 3 1 3 3 3 4 4 1 4 2 4 3

  1. Дано натуральное число М и целочисленный массив А[1..M]. Сосчитать и вывести количество различных чисел в массиве.Добавлено через 1 минуту помогите пож-та

  1. Ввести с клавиатуры строку символов, и при этом программа должна вывести на экран латинские гласные буквы (a, e, i, o, u) которые отсутствуют в введённой строке.

  1. Написать программу, которая позволяет вводить действительные числа (количество предварительно задается либо завершается по указанию пользователя), заносить их в файл и выполнять их обработку: - Выбрать из файла положительные числа, вывести их на экран и записать в новый файл.

  1. Ребят, помогите решить задачку через рекуррентное уравнение, желательно с подробными объяснениями! Вычислить и вывести на экран в виде таблицы значения функции, заданной с помощью ряда, на интервале от Хнач до Хкон с шагом dx и точностью. Таблицу снабдить заголовком и шапкой. Строка таблицы должна содержать значение аргумента, значение функции и количество просуммированных членов ряда: Написал программу, но она не рабочая.. В чем ошибка(-и)???

  1. Дан целочисленный массив 10 на 10. Найти максимальный элемент и вывести на экран a[i,j]=(максимальное число).

  1. В гонках "Формулы N" участвует N машин. В результате квалификационного заезда машины получили порядковые номера и стартовали в порядке от 1 до N. Вася - страстный поклонник гонок, но у него в общежитии плохой интернет и он не может смотреть видео-трансляцию. Поэтому он вынужден читать текстовую трансляцию, в которой все сообщения имеют вид "Машина номер X обогнала машину номер Y".Вася ненадолго отвлекся и перестал понимать текущий порядок машин на трассе. Помогите ему понять, в каком порядке расположены машины по известным сообщениям с начала текстовой трансляции. В первой строке заданы два натуральных числа N и M (1 ≤ N, M ≤ 100000) - количество машин и сообщений об обгоне соответственно. В следующих M строках содержатся описание сообщений об обгоне: пары чисел X и Y (1 ≤ X, Y ≤ N) - машина X обогнала машину Y. Гарантируется, что машина Y ехала непосредственно перед машиной X на момент сообщения. Выведите N чисел - порядок, в котором находятся машины после обработки всех сообщений.