Дан массив из 10 элементов. определить количество элементов, кратных 5, но не кратных 3

Question

Информатика

Иванна

25 июня, 00:20

Дан массив из 10 элементов. определить количество элементов, кратных 5, но не кратных 3

+1

Ответы (1)

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

Сатира · Answer 1

Program n1;

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

k, i: integer;

begin

randomize;

write ('массив: ') ;

k:=0;

for i:=1 to 10 do

begin

a[i]:=random (100) ;

write (a[i],' ') ;

if (a[i] mod 5=0) and (a[i] mod 30) then k:=k+1;

end;

writeln;

write ('k=', k) ;

end.