ЛР6 Программирование (1.4.3 В21) - III

LabWork6
📑 Compile Pascal Online

III. Программа Pascal

Program Lab6;

var A: array [1..1000] of real;

    D,minabs,maxabs: real;

    N,i: integer;

begin

    writeln('Лаб.6':38);

    write('Количество элементов N: '); 

    readln(N); writeln(N:3);

    minabs:=10000; maxabs:=0; 

    i:=1; writeln('Массив A: ');

    while i<N+1 do

    begin

        readln(A[i]); writeln(A[i]:5:2);

        if abs(A[i])<minabs then

            minabs:=abs(A[i]);

        if abs(A[i])>maxabs then

            maxabs:=abs(A[i]);

        i:=i+1;

    end;

    D:=maxabs-minabs;

    write('Разность D: '); writeln(D:5:2);

end.

STDIN

10

29.91

-28.16

-20.54

30.04

47.51

-45.37

-0.91

-29.1

-17.03

-41.28