Дано действительные числа а1 ... а20.

uses crt;
var a:array[1..100] of byte;
     n,i,j,max,temp:byte;
begin
 clrscr;
randomize;
 writeln('Введите количество элементов массива');
 readln(n);
 for i:=1 to n do
 repeat
    a[i]:=random(n*3);
  for j:=1 to i-1 do
   if a[i]=a[j] then break;
 until(a[i]<>a[j]);
 
writeln('Данный массив');
 for i:=1 to n do
 write(a[i],' ');
 
 max:=1;
 for i:=2 to n do
  if a[i]>a[max] then max:=i;
 
 temp:=a[n];
 a[n]:=a[max];
 a[max]:=temp;
writeln;
writeln('Полученный массив');
 for i:=1 to n do
 write(a[i],' ');
readln;
 
 
end.

var a:array[1..20] of real;i,k:integer;max:real;
begin randomize;
for i:=1 to 20 do begin
a[i]:=random*20-10;write(a[i]:5:2);end;writeln;
k:=1;
for i:=2 to 20 do
if a[k]<a[i] then k:=i;
max:=a[k];
a[k]:=a[20];
a[20]:=max;
for i:=1 to n do
write(a[i]:5:2);writeln;readln;
end.