1. For i:=1 to n do; - крапка з комою в циклі не ставиться
Правильно так For i:=1 to n do
2. параметр циклу обов’язково описується в змінних
var n,a,i,k:int64;
3. Числа які перевіряються( чи парне число чи ні) зчитуються в циклі оператором read(a);
Для узагальнення подаю приклад розв’язку першої задачі Теми 3
Задача 3-1
Дано N цілих чисел. Знайти
кількість парних серед них.
У першому рядку стандартного
вхідного потоку міститься N (N<1000) – кількість чисел. У наступному рядку
через пропуск дано самі числа. У стандартний вихідний потік вивести кількість
парних чисел.var n,a,i,k:int64;
begin
readln(n);
k:=0;
For i:=1 to n do
begin
read(a);
if a mod 2=0 then k:=k+1;
end;
writeln(k);
end.
