Есть ответ 👍

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

241
401
Посмотреть ответы 2

Ответы на вопрос:


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.

lera10211
4,7(26 оценок)

Удалить, создать, переместить, переименовать, сделать доступными только определённым пользователям пк.

Популярно: Информатика