Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Помогите решить
В массиве из 20 элементов заполненном целыми числами из интервала [0;1000] найти количество четных двузначных чисел.(PascalABC)

Ответ оставил Гость

Const n = 20;
var a:array[1..n]of integer;
k,i:integer;
begin
  for i:=1 to n do begin
    a[i]:=random(1001);
    write(a[i], );
    if (a[i]>9)and(a[i]<100) and (a[i] mod 2 =0) then k:=k+1;
  end;
  writeln;
  writeln(Количество четных двузначных: ,k);
end.