Question

Задать целочисленную таблицу А[1...n], состоящую из различных чисел интервала [-100...100]. Найти разность наибольшего и наименьшего элементов и указать номер наибольшего элемента.

Answer 1

Var
 a,b,min,max,i,j,k:longint;
begin
 readln(n);
 min:=maxlongint;
 max:=-min;
 for i:=1 to n do
 begin
  read(a);
  if a>max then
  begin 
   max:=a;
   k:=i;
  end;
  if a<min then min:=a;
 end;
 writeln(max-min);
writeln(k);
end.