Массивы, Поменять мах и мин местами Опции

[Beseech]

Дан массив А из 20 элементов. Поменять местами максимальный и минимальный элементы этого массива. Преобразованный массив вывести на экран.

Сообщение отредактировано: Beseech - 11.05.2007 10:59

[Адель]

а поиском никак?

[Софа]

У меня была такая задача. Мне помогли ее решить и вот что получилось:

program maxmin;
uses crt;
const n=20;
a:array[1..n] of integer=(9,8,7,-2,1,6,3,4,5,0,15,19,-4,22,-9,13,32,5,6,44);
var min,max,i:integer;
begin clrscr;
for i:=1 to n do
write (a[i]:3);
writeln;
max:=a[1]; min:=a[1];
for i:=1 to n Do
begin
if max < a[i] then
max:=a[i]; end;

for i:=1 to n Do
begin
if min > a[i] then
min:=a[i]; end;

writeln ('max=',max, ' ','min=',min);
writeln;
for i:=1 to n do
begin
if a[i]=min then a[i]:=max
else
if a[i]=max then a[i]:=min;
end;
for i:=1 to n do
write (a[i]:3);
readkey;
end.
Софа

М

Софа, расставь теги! Lapp

[Beseech]

спс Софа) Респект