найти количество четных чисел в одномерном массиве размерностью 5

Question

Информатика

Антония

1 марта, 11:17

найти количество четных чисел в одномерном массиве размерностью 5

+3

Ответы (1)

Знаете ответ на вопрос?

Анастасиюшка · Answer 1

Program Massiv;

Uses Crt;

var a:array[1 ... 5] of integer;

i, n:integer;

begin

clrscr;

n:=0;

write ('Исходный массив:') ;

for i:=1 to 5 do

begin

a[i]:=random (101) ;

if (a[i] mod 2) = 0 then Inc (n) ;

write (a[i]:4) ;

end;

writeln;

writeln ('Количество чётных элементов=', n) ;

readkey;

end.