заполнить массив из 9 элементов случайными числами в промежутке [-10;10] и
Заполнить массив из 9 частей случайными числами в промежутке [-10;10] и отыскать max и min элемент массива и поменять их местами.
Задать свой вопрос
Лариса Гуловская
язык?
Денис Школа
паскаль
1 ответ
Аделина Мускатиньева
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] gt; max then
begin
max := mas[i];
j := i;
end;
if mas[i] lt; 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] gt; max then
begin
max := mas[i];
j := i;
end;
if mas[i] lt; 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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов