Дан массив А из 20 элементов. Поменять местами максимальный и минимальный элементы этого массива. Преобразованный массив вывести на экран.
а http://forum.pascal.net.ru/index.php?showtopic=17177&hl=%EC%E0%EA%F1%E8%EC%E0%EB%FC%ED%FB%E9 никак?
У меня была такая задача. Мне помогли ее решить и вот что получилось:
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 |
спс Софа) Респект