Дан массив натуральных чисел А1 А2 ... Аn указать элементы у которых остаток от деления на М равен L

Question

Информатика

Римуля

4 марта, 05:17

Дан массив натуральных чисел А1 А2 ... Аn указать элементы у которых остаток от деления на М равен L

+2

Ответы (1)

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

Емилиана · Answer 1

program massiv;

uses CRT;

var i, N, M, L, K:integer;

a:array [1 ... N] of integer;

begin

read (N) ;

for i:=1 to N do

begin

read a[i];

end;

for i:=1 to N do

begin

if a[i] mod M = L

then

B[j]:=a[i];

j:=j+1;

K:=K+1;

end;

for j:=1 to K do

write (B[j]) ;

readkey;

end.