Дан массив натуральных чисел А1 А2 ....Аn указать элементы у которых остаток от деления на М равен L
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.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
