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

ALEXANDER982 ALEXANDER982    2   22.05.2019 11:50    0

Ответы
AnutaNikishina AnutaNikishina  01.10.2020 07:37

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика