Дан массив А (5), подсчитать количество элементов кратных 5 и оканчивающихся на ноль.

Question

Информатика

Эванфея

14 ноября, 03:58

Дан массив А (5), подсчитать количество элементов кратных 5 и оканчивающихся на ноль.

+4

Ответы (1)

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

Джэн · Answer 1

Var a: array[1 ... 5] of Integer;

rand, count, i: Integer;

begin

for i:=1 to 5 do

begin

a[i]:=Random (100) ;

writeln (a[i]) ;

if (a[i] mod 5=0) and (a[i] mod 10=0) then Inc (count) ;

end;

writeln ('Кол-во: ', count) ;

end.