Вопрос школьника по предмету Информатика
не получается сделать программу в 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!
Похожие вопросы от пользователей