Question

(Pascal) Дан целочисленный массив из n (n вводится с клавиатуры) элементов A(n) в

пределах от -20 до 20 (сгенерировать случайными числами). Нужно:

1) В массиве А найти те числа, у которых остаток от деления на M равен L.

(0≤L≤M-1).

Answer 1

Pascal

var

 a:array of integer;

 i, n, m, l:integer;

begin

 writeln('введите n, m, l:');

 readln(n, m, l);

 setlength(a, n);

 randomize;

 for i:=0 to n-1 do begin

   a[i]:=random(41)-20;

   if a[i] mod m = l then

     writeln(a[i]);

 end;  

 writeln(a);

end.