Ввести в цикле for 4 целых числа вывести количество четных среди этих чисел.

Question

Информатика

Астрит

9 февраля, 09:17

Ввести в цикле for 4 целых числа вывести количество четных среди этих чисел.

+1

Ответы (1)

Знаете ответ?

Аржинтина · Answer 1

Program z1;

var i, n, s:integer;

A:array[1 ... 4] of integer;

begin

n:=4;

s:=0;

for i:=1 to n d

begin

write ('A[', i,']=') ; readln (A[i]) ;

end;

for i:=1 to n do

begin

if A[i] mod 2 = 0 then s:=s+1;

end;

writeln ('s=', s) ;

end.