Alex Gotze

//Найти максимальный и минимальный элементы массива B(15) и поменять их местами

Program CPascal;

const n=15; // Кол-во элементов в массиве

var x:array [1..n] of integer;
    i,i_min,i_max,temp:integer;

Begin
// Заполним массив псевдослучайными числами и напечатаем его...
Writeln('Исходный массив: ');
for i:=1 to n do
    Begin
    X[i]:=Random(51)-25;
    Write(X[i]:5);
    end;
Writeln;

// Найдем индексы максимального и минимального элемента
i_Min:=1;
i_Max:=1;

for i:=1 to n do
    Begin
    if (X[i_Min] > X[i]) then i_Min:=i; // Минимальный...
    if (X[i_Max] < X[i]) then i_Max:=i; // Максимальный...
    end;

// Выведем индексы, если надо...
Writeln('Индекс минимального элемента массива: ',i_Min,' = ',X[i_Min]);
Writeln('Индекс максимального элемента массива: ',i_Max,' = ',X[i_Max]);

// Меняем местами...
Temp:=X[i_Max];
X[i_Max]:=X[i_Min];
X[i_Min]:=Temp;

// Выведем новый массив...
Writeln('Измененный массив: ');
for i:=1 to n do Write(X[i]:5);
Writeln;
end.