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

Question

Информатика

Хусдазат

24 июля, 00:13

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

+2

Ответы (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.