не получается сделать программу в ABCпаскаль, в чем ошибка? uses crt; var a: array [1..20] of index; begin for i:= 1 to 15 do; readln(a[i]); for i:= 1 to 15 do; writeln(a[i]); for i:= 1 to 15 do; if a[i] mod 2 = 0 then S:=S+1; S:= S+a[i]; writeln(S); end.

Вопрос школьника по предмету Информатика

не получается сделать программу в ABCпаскаль, в чем ошибка?

uses crt;
var
a: array [1..20] of index;
begin
for i:= 1 to 15 do;
readln(a[i]);
for i:= 1 to 15 do;
writeln(a[i]);
for i:= 1 to 15 do;
if a[i] mod 2 = 0 then S:=S+1;
S:= S+a[i];
writeln(S);
end.

Ответ учителя по предмету Информатика

в var нет переменных i и S. В остальном задача принимает 15 чисел и проверяет, сколько чётных среди них.

P.S. Надо переделать!Зачем складывать член массива с количеством? И ещё — сперва опиши, что такое S — программа же не знает, с чем складывать S!