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

159

341

Посмотреть ответы 2

Ответы на вопрос:

Luna2904

Информатика

4,7(99 оценок)

Сделал разницу значений.сначала вводится длинна массива.сделано через динамический массив! поставь наилучшее решение! ) var a: array of integer; n,i,max,min: integer; begin readln(n); setlength(a,n); for i: =0 to length(a) do readln(a[i]); max: =a[0]; for i: =0 to length(a) do if a[i]> max then max: =a[i]; min: =a[0]; for i: =0 to length(a) do if a[i]< min then min: =a[i]; writeln; writeln(max-min); readln; end