uses crt;
var i,size,max,min,num,num1:integer;
a:array[1..10000] of integer;
begin
clrscr;
writeln('Bведите размер массива');
readln(size);
FOR i := 1 TO size do
begin
clrscr;
writeln('Введите элементы массива');
readln(a[i]);
end;
max := a[1];
min := a[1];
clrscr;
writeln('Введенный массив');
FOR i := 1 TO size do
begin
writeln(a[i]);
IF a[i] > max THEN
begin
num := i; max := a[i];
end;
end;
FOR i := 1 TO size do
begin
IF a[i] < min THEN
begin
num1 := i; min := a[i];
end;
end;
a[num1 + 1] := max;
a[num] := min;
writeln('Массив, где max и min поменяли местами');
FOR i := 1 TO size do
begin
writeln(a[i]);
end;