Определи вид цикла:
Использовать Чертёжник
алг линия фигур
нач
нц 20 раз
прямоугольник
кц
кон
А) сложный цикл
Б) цикл с условием
В цикл
Г) цикл с вс алгоритмом
157
214
Ответы на вопрос:
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.
Популярно: Информатика
-
annamironova694120.05.2021 05:31
-
00909524455445823.02.2022 05:22
-
mashakesea0316.03.2023 05:52
-
09Катя9918.12.2021 13:44
-
Andreyzem422.12.2021 02:01
-
polo73oye61z21.04.2022 21:59
-
rukonya200912.11.2021 09:12
-
derkioptu10.06.2022 16:51
-
Matvey006106.03.2020 20:28
-
Dasha620041118.11.2021 17:26