Заполнить случайным образом массив из 20 чисел элементами от 0 до 100 найти количество чисел кратных 15

Question

Информатика

Полина

13 января, 18:14

Заполнить случайным образом массив из 20 чисел элементами от 0 до 100 найти количество чисел кратных 15

+5

Ответы (2)

Знаете ответ?

Антонидка · Answer 1

Program n1;

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

i, k: integer;

begin

randomize;

k:=0;

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

for i:=1 to 20 do

begin

a[i]:=random (101) ;

write (a[i],' ') ;

if a[i] mod 15=0 then k:=k+1;

end;

writeln;

writeln ('кол-во кр. 15: ', k) ;

end.

Алфея · Answer 2

Program q174147740;

var

i, k: integer;

a: array [1 ... 20] of integer;

begin

k:=0;

Randomize;

for i : = 1 to 20 do

begin

a[i] : = Random (100) ;

Write (a[i]:3) ;

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

end;

end.