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

Question

Информатика

Антонида

22 февраля, 14:04

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

+1

Ответы (1)

Знаете ответ на вопрос?

Ефросимыч · 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.