Даны действительные числа, а1 а20 .Поменять в этой последовательности местами:

[Zhasik]

naidite pojaluista oshybku

Даны действительные числа, а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.

[k0tone]

Держи:

Program esep1;
uses crt;
Var a:array[1..20] of integer;
    m,s,b,max,c,n:integer;
begin
clrscr;
writeln('Vvedite elementy massiva^');
for m:=1 to 20 do
  readln(a[m]);
for m:=1 to 20 do
  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('maksimalniy element=',max);
writeln('poziciya maksimalnogo elementa=',c);
writeln('posledniy 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;
readln;
end.