Заполнить массив из 9 элементов случайными числами в интервале [-10;10] и найти max и min элемент массива и поменять их местами.
Заполнить массив из 9 элементов случайными числами в интервале [-10;10] и найти max и min элемент массива и поменять их местами.
Гость
Ответ(ы) на вопрос:
Гостьvar
mas: array[1..9] of integer;
max, min, i, j, k, n: integer;
begin
writeln('Массив до перестановки');
for i := 1 to 9 do
begin
mas[i] := random(11) - random(11);
write(mas[i], ' ');
end;
writeln;
max := mas[1];
min := mas[1];
k := 1;
j := 1;
for i := 1 to 9 do
begin
if mas[i] > max then
begin
max := mas[i];
j := i;
end;
if mas[i] < min then
begin
min := mas[i];
k := i;
end;
end;
n := mas[j];
mas[j] := min;
mas[k] := n;
writeln('Масств после перестановки');
for i := 1 to 9 do
write(mas[i], ' ');
end.
Не нашли ответ?
Похожие вопросы