Question

Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.
Формат выходных данных
Выведите ответ к задаче.

Answer 1

const n=4; { любое число N от 1 до 100000}var a:array [1..n] of integer;    b,min,max, s:integer;    proizvedenie:real;beginwriteln('Введите n чисел'); for b:=1 to n do read (a[b]); for b:=1 to n do     write(a[b],' '); min:=a[1]; max:=0; for b:=1 to n do begin if a[b]>max then max:=a[b]; if a[b]<min then min:=a[b]; end; proizvedenie:=max-min; writeln; writeln('minimum ',min,' ','maximum ',max,'  Proizvedenie=   ',proizvedenie); readln;end.