3) Заполнить массив случайными числами. Найти на сколько максимальный элемент массива больше минимального. Очень надо. Пожалуйста!!!!

Program zadacha;vari,min,max,x: integer;a: array [1..100] of integer;
beginfor i:=1 to 100 do begin a[i]:=random(200); writeln(a[i]); end;min:=a[i];max:=a[i];for i:=1 to 100 do beginif a[i]lt;min then min:=a[i];if a[i]gt;max then max:=a[i];end;x:=max-min;writeln(min=, min);writeln(max=, max);writeln(max-min=,x);end.

PascalABC

var  mas: array[-1000..1000] of integer;  i, min, max, n, razn: integer;begin
  //ввод количества элементов массива  readln(n);  //ввод массива и его вывод на экран  randomize;  for i := 1 to n do   begin    mas[i] := 500 - random(1000) - 1;    write(mas[i]:5);    if (i mod 10 = 0) then writeln;  end;  //поиск минимума и максимума  min := mas[1];  max := mas[1];  for i := 2 to n do   begin    if (mas[i] lt; min) then min := mas[i];    if (mas[i] gt; max) then max := mas[i];  end;  //нахождение разности  razn := max - min;  writeln;  writeln(Разность = ,razn);end.