Question

СРОЧНО НУЖНА ПОМОЩЬ!
Во входном файле две строки. В первой строке содержится одно число N. Во второй строке - N целых чисел, разделенных пробелами. Напишите программу, которая выведет в выходной файл одно число - разность минимального и максимального чисел из второй строки входного файла.

Answer 1

program aaa;
var
   n,i,a,max,min:integer;
begin
   readln(n);
   for i:=1 to n do begin
      read(a);
      if(i=1) then begin
         max:=a;
         min:=a;
      end;
      if(a>max) then max:=a;
      if(a<min) then min:=a;
   end;
   writeln(min-max);
end.