Дан интервал натуральных чисел от m до n.определить все целые числа в этом интервале?

Целые числа - это натуральные числа, противоположные по знаку натуральным и 0. поэтому подходят все числа от m до n

//pascal var   a: array [1..10] of byte;   i, min, max: byte; begin randomize; min : = 101; max : = 0;   for i : = 1 to 10 do   begin       a[i] : = random(101);       if ((a[i] < min) and (a[i] mod 2 < > 0)) then min : = a[i];       if ((a[i] > max) and (a[i] mod 2 = 0)) then max : = a[i];         write(a[i], ' ');     end; writeln; writeln('максимальный четный = ', max);   writeln('минимальный нечетный = ', min);         readln; end.

Pascalabc.net версия 3.3. сборка 1583 (25.11.2017) var a: array[1..10] of integer; begin   var max: =2;   var min: =101;   for var i: =1 to 10 do   begin   a[i]: =random(0,100);   write(a[i],' ');   if (a[i] mod 2=0) and (a[i]> max)     then max: =a[i];     if (a[i] mod 2=1) and (a[i]< min)     then min: =a[i];   end;   writeln;   writeln('минимальный нечетный елемент - ',min);   writeln('максимальный четный елемент - ',max); readln; end.