Задать целочисленную таблицу А[1...n], состоящую из различных чисел интервала [-100...100]. Найти разность наибольшего и наименьшего элементов и указать номер наибольшего элемента.
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
writeln(max-min);
writeln(k);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
