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

Формулировка задачи:

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

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

textual
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


СОХРАНИТЬ ССЫЛКУ