Даны натуральное число m

[Zhasik]

Даны натуральное число m, действительные числа а1,..,a30
(числа попарно различны). В последовательности а1,...,a30
поменять местами наибольший член и член с номером m.


pojaluista pomogite!!!! zaranie spasibo!!!! srochno nado!(((

[Niro]

А почему у вас задания на русском, а просьба о помощи написана латиницей
И последовательность чисел у вас задана в виде массива?

[Ponkole]

Согласен с Niro, и вообще пытаися четче выражаться в объяснении условий задач

{$R+}{$N+}
uses CRT;
var m, i, max:integer;
     a: array [1..30] of real;
begin
clrscr;
readln(m);
writeln;
for i:=1 to 30 do read(a[i]);
max:=1;
for i:=2 to 30 do if a[max]<a[i] then max:=i;
a[max]:=a[max]+a[m];
a[m]:=a[max]-a[m];
a[max]:=a[max]-a[m];
writeln;
writeln;
for i:=1 to 30 do
write(a[i]:2:2,'  ');
readln;readln;
end.