Question

Подсчитать количество нечетных элементов массива из 10 чисел. (С полным ответом! Pascal ABC)

Answer 1

Ответ:
var a: array [1..10] of integer;
i, j: integer;
begin
j:=0;
for i:=1 to 10 do
read(a[i]);
writeln;
for i:=1 to 10 do
if (not odd(a[i])) then inc(j);
writeln(j);
end.