Question

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

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.