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.