В массиве целых чисел N, найти максимальный элемент и поменять с первым элементом.(элементы массива вводятся с клавиатуры);

[максим2012]

В массиве целых чисел N, найти максимальный элемент и поменять с первым элементом.(элементы массива вводятся с клавиатуры);памагите пажалуьста завтра должен здатй праграму

[Mad_Cat]

{:||||||:}
mx:=1;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>a[mx] then mx:=i;
end;
a[1]:=a[1]+a[mx];
a[mx]:=a[1]-a[mx];
a[1]:=a[1]-a[mx];
for i:=1 to n do
write(a[i],' ');
{:||||||:}
end.

[максим2012]

ппрастите а можыте написать всю праграму а то я в паскале ничево не панемаю...если вам не трудно.

[Mad_Cat]

http://programmersforum.ru/showpost....0&postcount=13

[максим2012]

спасйбо бальшое