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