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

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.