Найти максимальный по модулю элемент массива x(n) и поставить его первым. (одномерные массивы) если
184
401
Ответы на вопрос:
Var a: array of integer; n,i,max,ind: integer; begin readln(n); setlength(a,n); for i: =0 to length(a) do readln(a[i]); max: =a[0]; ind: =0; for i: =0 to length(a) do if abs(a[i])> abs(max) then begin max: =a[i]; ind: =i; end; n: =a[0]; a[0]: =max; a[ind]: =n; for i: =0 to length(a) do write(a[i]: 3); readln; end.
Популярно: Информатика
-
trisk04.03.2023 07:47
-
рита43602.02.2022 21:27
-
alexasnowbell15.01.2021 02:31
-
elenashyplukova09.02.2020 20:10
-
УмНиК498027.06.2020 12:35
-
dhgti14.03.2023 18:21
-
max7878986704.03.2023 02:44
-
20042007rbn22.09.2022 09:31
-
Настёна3007200307.07.2022 01:28
-
Krichikis26.05.2023 23:26