Дан массив натуральных чисел А1 А2 ....Аn указать элементы у которых остаток от деления на М равен L
More Questions From This User See All
Дан массив натуральных чисел А1 А2 ....Аn указать элементы у которых остаток от деления на М равен L
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
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.