Вывести на экран элементы массива которые являются делителями числа х (х-вводится с клавиатуры). (элементов массива: 10. массив вводится cлучайным образом) решите и опишите полностью, только решение должо быть простым не через процедуры а то я на 1 курсе мы еше это не проходили)
var
a:array [1..10] of integer;
i,x:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(14)+1;
write (a[i],' ');
end;
writeln;
write ('X = ');readln(x);
for i:=1 to 10 do
if x mod a[i] = 0 then write (a[i],' ');
writeln;
readln;
end.