Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности. Формат входных данных Первая строка входного файла содержит целое число N (1 меньше = N меньше = 100000). ...
Дается последовательность из N чисел. Выведите разницу между максимальным и минимальным элементами последовательности.
Формат входных данных
Первая строка входного файла содержит целое число N (1 <= N <= 100000). В следующей строке задаются N положительных целых чисел, каждое из которых не превышает 100000.
Формат выходных данных
Выведите ответ к задаче.
Гость
Ответ(ы) на вопрос:
Гость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]
Не нашли ответ?
Похожие вопросы