TURBO PASKAL В одномерном массиве A=(a(1), a(2),... , a(n)) поменять местами минимальный и максимальный элементы.
TURBO PASKAL
В одномерном массиве A=(a(1), a(2),... , a(n)) поменять местами минимальный и максимальный элементы.
Гость
Ответ(ы) на вопрос:
Гостьpascal
const
n = 10;
var
a : array [1..n] of integer;
i : integer;
max,min,ima,imi : integer;
begin
for i := 1 to n do
readln (a[i]);
min :=a[1];
imi := 1;
for i := 1 to n do
begin
If a[i] > max then
begin
max := a[i]; //поиск и сохранение
ima := i; //max знач и его номер
end;
If a[i] < min then
begin
min := a[i]; //поиск и сохранение
imi := i; //min знач и его номер
end;
end;
a[imi] := max;
a[ima]:=min;
for i := 1 to n do
writeln (a[i]);
end.
Не нашли ответ?
Похожие вопросы