Вдвумерном массиве 10х15 найти разность между максимальным и минимальным элементами массива, заданными случайным образом на интервале [-50;

// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=MatrRandom(10,15,-50,50); a.Println(4);
  var amax:=-100;
  var amin:=100;
  foreach var x in a do
    if x>amax then amax:=x
    else
      if x<amin then amin:=x;
  Writeln('Amax-Amin=',amax-amin)
end.

Пример
 -29  24  36  45 -14  -2  35  36  27   5 -31  26   0 -43 -16
  41  37 -35  -6   0 -27  28  13 -37 -40 -45  -6   7 -38 -26
   6   6   4 -22 -43 -41  27 -50 -31 -50 -37 -10 -38  35 -27
 -14   0 -42  34 -12 -24  40  42  48 -26  -6 -39  23  34 -19
 -46 -23  23   3  49  13 -29 -29 -50 -25 -37  37  47  -7 -13
  33  16  28  40  24   6 -15  24  24  48  16  15   6 -46  14
  48 -46 -34  39  47  36  17  10  37  11 -36 -22 -42   9 -26
 -10  44  -2  10  -9  29 -16  33 -40  26  20   4  49   5 -18
  48  16 -33 -13 -23 -41  21 -43  -3   2 -34 -45  42 -21  10
 -22 -23 -36   0   8  23 -33  46  13  36  14 -28 -44 -38 -24
Amax-Amin=99

Червь  – программа, которая делает копии самой себя. Ее вред заключается в захламлении компьютера, из-за чего он начинает работать медленнее. Отличительной особенностью червя является то, что он не может стать частью другой безвредной программы.Троянская программа (троянский конь, троян)Троянская программа маскируется в других безвредных программах. До того момента как пользователь не запустит эту самую безвредную программу,  троян не несет никакой опасности. Тронская программа может нанести различный ущерб для компьютера. В основном трояны используются для кражи, изменения или удаления данных. Отличительной особенностью трояна является то, что  он не может самостоятельно размножаться.

Program q1;
uses crt;
const n=10;
var i,j:integer;
mass:array [1..n] of integer;
countNum:integer; // переменная для хранения количества нечетных чисел
proizv:integer; // переменная для хранения произведения нечетных чисел
BEGIN
proizv:=1; // так как, изначально равно 0, а при умножении на 0 будет всегда 0
{создание последовательности n целых чисел}
Writeln('Случайные целые числа: ');
for i:=1 to n do
begin
mass[ i ]:=random(9)+1; //присваеваем переменной случайное значение от 1 до 10
write(inttostr(mass[ i ])+', ');
end;
{Вычисление произведения и количества нечетных чисел}
for i:=1 to n do
if mass[ i ] mod 2 <> 0 then //проверяем не четное-ли число, если да, то.. .
begin
inc(countNum); //увеличиваем на один кол-во нечетных чисел
proizv:=proizv*mass[ i ]; // высчитываем произведение
end;
{Вывод результатов}
writeln;
writeln('Всего нечетных чисел: '+inttostr(countNum));
writeln('Их произведение: '+inttostr(proizv));
END.