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

[Zhasik]

Даны действительные числа, а1 а20 .Поменять в этой последовательности местами:
b) наибольший и последний члены.}
Program esep1;
uses crt;
Var a:array[1..20] of integer;
m,s,b,max,c,n:integer;
Begin
Writeln('massiv elementteri');
For m:=1 to 20 do begin
readln(a[m]);
end;
write(a[m]:4);
For m:=1 to 20 do begin
If a[20]=a[m] then b:=a[20];
If max<a[m] then begin max:=a[m];c:=m;end;
end;
writeln('en ulken element=',max);
writeln('en ulken elementtin orny=',c);
writeln('en songy element=',b);
n:=a[m];
a[m]:=a[c];
a[c]:=n;
For m:=1 to 20 do begin
Write(a[m]:4);
end;
writeln;
end.

pojaluista popravte oshybku! mne bez random i bez randomiza nado vvodit' chisla!

[ROMA2PVT]

uses
 crt;
Var
 a:array[1..20] of integer;
 m,s,b,imax,c,n:integer;
Begin
Writeln('massiv elementteri');
For m:=1 to 7 do
 readln(a[m]);
For m:=1 to 7 do
 write(a[m]:3);
writeln;
imax:=1;
For m:=1 to 7 do
 If a[m]>a[imax] then
  imax:=m;
write('MAX[',imax,']:=',a[imax]);
n:=a[imax];
a[imax]:=a[7];
a[7]:=n;
writeln;
For m:=1 to 7 do
 Write(a[m]:4);
writeln;
end.