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

Question

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

Comments

Полностью программу или можно только главные строки?

---

Желательно полную если долго то можно главное

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.