Дается последовательность из N чисел. Выведите разницу меж максимальным и наименьшим

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

Задать свой вопрос
1 ответ
Const n=4; хоть какое число N от 1 до 100000var 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]gt;max then max:=a[b]; if a[b]lt;min then min:=a[b]; end; proizvedenie:=max-min; writeln; writeln('minimum ',min,' ','maximum ',max,'  Proizvedenie=   ',proizvedenie); readln;end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт