Дан массив действительных чисел, размерностью n. Указать те, у которых остаток от деления на M находится в диапазоне от 0 до М - 1.

program zadacha3;
const
n = 20; {можно менять }
var
mass : array[1..n] of integer;
i : integer;
m : integer;
l : integer;
begin
randomize; {запускаем генератор случ чисел, чтоб в ручную не вводить}
writeln('введите М.');
readln(m);

{заполняем массив}
for i := 1 to n do
begin
mass[i] := random(n); { заполняем массив}
write(mass[i], ' '); { выводим результат}
end;
writeln;
{ниже выводим все элементы поделенные на заданное число, чисто для наглядности
этот кусок можно удалить или оставить}
for i := 1 to n do
write(mass[i] div m, ' ');

writeln;

{ выводим всё что нужно}
for i := 1 to n do
begin
if ((mass[i] div m)>=0) and ((mass[i] div m) <= m-1) then write(mass[i], ' ');
end;

readln;
end.

Скачать решение.