Question

Разработать алгоритм, программу и тест. Дана последовательность из 50-ти чисел. Определить есть ли в последовательности числа кратные заданному с клавиатуры числу С.

Answer 1

const n=50;
Var a,k:array[1..n] of integer;
i,c:integer;
Begin
Randomize;
Writeln('Введите число c: ');
Readln(c);
 For i:=1 to n do 
begin 
 A[i]:=Random(10); 
Write(i,' '); 
end; 
Writeln; 
 For i:=1 to n do 
Begin 
 If a[i] mod c=0 then
 Begin
 Write(a[i],' ');
  end;
 end; 
end.