Предмет: Информатика,
автор: dstvolov
заполнить массив из 9 элементов случайными числами в интервале [-10;10] и найти max и min элемент массива и поменять их местами.
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Английский язык,
автор: asddddddddd25
Предмет: Литература,
автор: DrFLIX
Предмет: Математика,
автор: kvashningta
Предмет: Алгебра,
автор: 89656443381
Предмет: Биология,
автор: posoxova2000