Найти количество четных чисел в одномерном массиве размерностью 5.

var

  a : array [1..5] of integer;

  count, i ; integer;

begin

  count : = 0;

  for i : = 1 to 5 do read (a[i]);

  for i : = 1 to 5 do

    if a[i] mod 2 = 0 then inc (count);

  writeln (count);

end.

// pascalabc.net 3.0, сборка 1052 const   nstud=100;   npred=10; type   date=record       den: byte;       mes: byte;       god: integer   end;   st=record       datr: date;       famnam: string;       gender: 0..1;       ball: array[1..npred] of 2..5   end; var   ns,np,nd,i,j: byte;   r: array[1..nstud] of st;   dolg,flagp: boolean;   cdate: date; begin   write('количество студентов: '); read(ns);   write('количество предметов: '); read(np);   writeln('вводите данные по каждому студенту');   writeln('в первой строке через пробел дата рождения дд мм ');   writeln('во второй строке фамилия, пробел, имя');   writeln('в третьей строке пол (0 - мужской, 1 - женский)');   writeln('в четвертой строке полученные через пробел');   for i: =1 to ns do begin       writeln('*** студент ',i,' ***');       with r[i] do begin           readln(datr.den,datr.mes,datr.god);           readln(famnam); readln(gender);           for j: =1 to np do read(ball[j])       end   end;   { *********** 1 *************** }   writeln;   writeln('список студентов-задолжников');   nd: =0;   for i: =1 to ns do begin       with r[i] do begin           j: =1; dolg: =false;           repeat               if ball[j]=2 then begin dolg: =true; inc(nd) end;               inc(j)           until dolg or (j> np);           if dolg then writeln(famnam)       end   end;   if nd=0 then writeln('задолжников нет! ');   { *********** 2 *************** }   writeln;   writeln('введите дату запроса в формате дд, мм, : ');   read(cdate.den,cdate.mes,cdate.god);   writeln;   writeln('список студентов, которым исполнилось 20 лет');   nd: =0;   for i: =1 to ns do begin       with r[i] do begin           flagp: =false;           if cdate.god-datr.god> 20 then flagp: =true           else               if cdate.god-datr.god=20 then begin                   if cdate.mes> datr.mes then flagp: =true                   else begin                       if cdate.mes=datr.mes then flagp: =(cdate.den> =datr.den)                   end               end;           if flagp then begin writeln(famnam); inc(nd) end;       end   end;   if nd=0 then writeln('нет студентов, которым исполнилось 20 лет! '); end. тестовое решение: количество студентов: 5 количество предметов: 4 вводите данные по каждому студенту в первой строке через пробел дата рождения дд мм во второй строке фамилия, пробел, имя в третьей строке пол (0 - мужской, 1 - женский) в четвертой строке полученные через пробел *** студент 1 *** 5 10 1996 иванов иван 0 4 3 5 5 *** студент 2 *** 12 8 1997 петров петр 0 3 2 3 4 *** студент 3 *** 9 10 1998 сидорова наталья 1 3 4 4 2 *** студент 4 *** 6 9 1994 козлова ирина 1 5 4 4 5 *** студент 5 *** 12 3 1995 тарасов константин 0 3 5 5 4 список студентов-задолжников петров петр сидорова наталья введите дату запроса в формате дд, мм, : 2 11 2015 список студентов, которым исполнилось 20 лет козлова ирина тарасов константин