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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.