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

Question

Информатика

Поля

12 мая, 06:35

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

+5

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