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] max) then max := mas[i];  end;  //нахождение разности  razn := max - min;  writeln;  writeln('Разность = ',razn);end.

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]max then max:=a[i];end;x:=max-min;writeln('min=', min);writeln('max=', max);writeln('max-min=',x);end.