Pascal ABC.Net
Вводится массив из N целых чисел. Поменять в нем местами самое большое и само маленькое числа.
Вводится массив из N целых чисел. Поменять в нем местами самое большое и само маленькое числа.
More Questions From This User See All
Answers & Comments
begin
readln(n);
for i := 1 to n do
read(a[i]);
min := a[1];
max := a[1];
min_i := 1; {номер минимального}
max_i := 1;
for i := 2 to n do
begin
if min > a[i] then
begin
min := a[i];
min_i := i;
end;
if max < a[i] then
begin
max := a[i];
max_i := i;
end;
end;
tmp := a[max_i];
a[max_i] := a[min_i];
a[min_i] := tmp;
for i := 1 to n do
write(a[i], ' ');
end.