Задан целочисленный массив размера N. Определить число элементов в массиве кратных 2 (написать на pascal)

Question

Информатика

Филипка

27 декабря, 17:52

Задан целочисленный массив размера N. Определить число элементов в массиве кратных 2 (написать на pascal)

+3

Ответы (1)

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

Васёна · Answer 1

Program col;

var

arr: array [1 ... 10] of integer;

i, n, col: integer;

begin

randomize;

n:=10;

col:=0;

for i:=1 to n do begin

arr[i]:=random (100) ;

if arr[i] mod 2=0 then col:=col+1;

write (arr[i],',') ;

end;

writeln;

writeln ('количество элементов кратных двум ', col) ;

readln;

end.