Вывести на экран элементы массива, которые являются делителями числа Х

@Ельжан · Регистрация: 24.06.2013

Author24 — интернет-сервис помощи студентам

1. Вывести на экран элементы массива которые являются делителями числа Х (Х-вводится с клавиатуры). (Элементов массива:10. Массив вводится cлучайным образом)

решите простым способом а не через процедуры, опишите программу.

@MicM · 26.06.2013, 22:39

Pascal

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

@Ельжан 0 / 0 / 0 Регистрация: 24.06.2013 Сообщений: 31
		1
	Вывести на экран элементы массива, которые являются делителями числа Х 26.06.2013, 22:32. Показов 2991. Ответов 1 Метки нет (Все метки) 1. Вывести на экран элементы массива которые являются делителями числа Х (Х-вводится с клавиатуры). (Элементов массива:10. Массив вводится cлучайным образом) решите простым способом а не через процедуры, опишите программу. 0

	26.06.2013, 22:39

Вывести на экран элементы массива, которые являются делителями числа Х

Решение