Ввести с клавиатуры массив из N вещественных чисел. Найти разность максимального и минимального элементов.

(Составить программу Pascal)

Uses crt;

const

N = 10;

var

a : array [1 ... N] of Real;

i : Integer;

max, min : Real;

begin

clrscr;

for i : = 1 to N do

begin

Write ('a[', i,'] = ') ;

Readln (a[i]) ;

end;

max : = a[1];

min : = a[1];

for i : = 2 to N do

begin

if max < a[i] then max : = a[i];

if min > a[i] then min : = a[i];

end;

Writeln (max - min:0:3) ;

Readln;

end.