Натусик

// В массиве А (6) найдите сумму максимального им минимального элементов и их порядковые номера.

const n=6;

var x:array [1..n] of integer;
    i,index_min,index_max:byte;

Begin
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(51)-25;
    Write(X[i]:4);
    end;
Writeln;

Index_Min:=1;
Index_Max:=1;

for i:=1 to n do
    Begin
    if (X[Index_Min] > X[i]) then Index_Min:=i;
    if (X[Index_Max] < X[i]) then Index_Max:=i;
    end;

Writeln('Индекс минимального элемента: ',Index_Min);
Writeln('Индекс максимального элемента: ',Index_Max);
Writeln('Сумма минимального и максимального элемента: ',X[Index_Min]+X[Index_Max]);
end.