Написать программу которая заполняет массив (размера 10) случайными числами в диапозоне от 0 до 100 и выводит на экран элементы краткие числу К

Question

Информатика

Ляля

30 января, 20:18

Написать программу которая заполняет массив (размера 10) случайными числами в диапозоне от 0 до 100 и выводит на экран элементы краткие числу К

+1

Ответы (1)

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

Сюта · Answer 1

Var

i, k:integer;

mas:=array [1 ... 10] of integer;

begin

randomize;

for i:=1 to 10 do

mas[i]:=random (100) ;

readln (k) ;

for i: = 1 to 10 do

if mas[i] mod k = 0 then

writeln (mas[i]) ;

end.