Решить . необходимо использовать одномерный массив. даны действительные числа a1, n. поменять местами первый наибольший элемент с последним наименьшим элементом.
232
291
Ответы на вопрос:
Const n = 20; var a: array[1..n] of real; i, imax, imin: integer; r, rmax, rmin: real; begin randomize; writeln('элементы массива'); rmax: =-1; { заведомо меньше меньшего } rmin: =100; { заведомо больше большего } for i : = 1 to n do begin r: =random(10); a[i]: =r; write(r,' '); if rmax< r then begin rmax: =r; imax: =i end; if rmin> =r then begin rmin: =r; imin: =i end end; writeln; { меняем местами и выводим результат } a[imax]: =rmin; a[imin]: =rmax; writeln('конечное состояние массива'); for i : = 1 to n do write(a[i],' '); writeln end. тестовое решение: элементы массива 4 1 2 8 6 3 7 5 5 1 4 4 3 3 6 8 5 4 7 6 конечное состояние массива 4 1 2 1 6 3 7 5 5 8 4 4 3 3 6 8 5 4 7 6 видно, что первая восьмерка поменялась местами с последней единицей.
Популярно: Информатика
-
vlasov20013315.11.2021 21:01
-
АружанкаЛав13.03.2021 06:51
-
скрытый322.12.2021 16:36
-
GoRussia22802.11.2021 12:18
-
виктория128924.06.2021 00:55
-
knyzeva280402.12.2020 17:05
-
AlisaLisa00512.07.2022 06:32
-
ke7rin31.10.2022 17:17
-
KarinaBelous19.04.2020 09:14
-
00KARTOSHKA0016.01.2022 23:24