. У введеному тексті замінити всі пропуски, що йдуть підряд одним єдиним пропуском.
176
410
Ответы на вопрос:
Var a: array [1..10] of byte; i, k, n, t, x, max: byte; //процедура вывода массива procedure writea(); var i : byte; begin for i : = 1 to 10 do begin write(a[i], chr(32)); end; writeln(); end; //основная процедура begin randomize; for i : = 1 to 10 do begin a[i] : = random(100); end; writea(); writeln(''); n : = 10; while n > 1 do begin for i : = n downto 1 do begin if a[i] > max then begin max : = a[i]; x : = i end; end; t : = a[n]; a[n] : = max; a[x] : = t; dec(n); max : = 0; writea(); end; writeln(''); writea(); end.- pascal abc.net, массив из 10 случайных чисел до 100 типа byte- результат работы программы следующий: 43 77 72 39 60 99 44 65 72 58 43 77 72 39 60 58 44 65 72 9943 72 72 39 60 58 44 65 77 9943 72 65 39 60 58 44 72 77 9943 44 65 39 60 58 72 72 77 9943 44 58 39 60 65 72 72 77 9943 44 58 39 60 65 72 72 77 9943 44 39 58 60 65 72 72 77 9943 39 44 58 60 65 72 72 77 9939 43 44 58 60 65 72 72 77 99 39 43 44 58 60 65 72 72 77 99
Популярно: Информатика
-
elena1alekseevna26.05.2020 10:22
-
MCK1726.01.2022 18:47
-
Demirline15.02.2023 05:13
-
sabinaaslanova31.01.2022 22:33
-
00723829.03.2020 00:46
-
PashaVershinin13.02.2021 21:36
-
jil35616.12.2020 03:30
-
bcfujd1922.10.2021 11:55
-
Obcenceee18.04.2020 19:44
-
pMatbq17.01.2020 17:24