Вывести на экран элементы массива которые являются - вопрос №1723319 от Анастасия0561 12.03.2022 18:12

Question

Информатика: Вывести на экран элементы массива которые являются делителями числа х (х-вводится с клавиатуры). (элементов массива: 10. массив вводится cлучайным образом) решите и опишите полностью, только решение должо быть простым не через процедуры а то я на 1 курсе мы еше это не проходили)

Анастасия0561 · Answer

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.