Ответы на вопрос:
Var i,min,max: integer; a: array[1..10] of integer; beginmin: =100; max: =0; randomize; for i: =1 to 10 do begin a[i]: =random(101); write(a[i],' '); if (a[i] > max) then max: =a[i]; if (a[i] < min) then min: =a[i]; end; writeln(''); for i: =1 to 10 do begin if a[i] = max then a[i]: =min else if a[i] = min then a[i]: =max; write(a[i],' '); end; end.
Популярно: Информатика
-
mon1309.09.2021 15:13
-
GrigoriyPokoti18.10.2020 12:45
-
Морти11126.02.2021 15:08
-
vadim255631.10.2021 17:15
-
СыроКок124.11.2022 02:18
-
Искорка12345613.09.2022 05:46
-
nastia11022814.02.2023 18:35
-
jova20011p0bpf921.10.2020 03:19
-
lavrinenkoll09.05.2023 19:27
-
Varkorn11.11.2021 16:24