Question

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

Answer 1

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.