Задание

Дан массив, состоящий из 10 элементов. Все элементы массива различны и являются неотрицательными целыми числами и не превышают 1000. Необходимо найти сумму максимального и минимального элементов массива.

Расположите строки программы, решающие эту задачу по порядку:

begin

m1 := 1001;

m2 := -1;

for i := 0 to 9 do begin

if A[i] < m1 then

m1 := A[i];

if A[i] > m2 then

m2 := A[i];

end;

p := m1 + m2;

writeln(p);

end.