Ответы на вопрос:
Uses crt; const n=10; var a: array[1..n] of integer; i,max,k: integer; begin randomize; for i: =1 to n do begin a[i]: =random(10); write(a[i],' '); end; writeln; max: =-1; for i: =1 to n do if a[i]> max then begin max: =a[i]; k: =i; end; a[1]: =a[1]+a[k]; a[k]: =a[1]-a[k]; a[1]: =a[1]-a[k]; for i: =1 to n do write(a[i],' '); end.
Популярно: Информатика
-
Дря07.06.2021 04:03
-
Gadik22826.05.2023 03:21
-
hellooiooooooo22.10.2020 21:50
-
karinalitvinova08.05.2021 16:44
-
Odesskiy200302.03.2023 06:06
-
simpolita17.09.2022 18:22
-
drazzgaming08.04.2022 15:56
-
FruitAPps28.02.2020 03:30
-
maria2701200708.03.2022 01:50
-
EpsilonDelta06.12.2022 12:40