Паскаль! ! ввод и вывод одномерных массивов, кусок программы, блок-схема
104
134
Ответы на вопрос:
Var a: array[1..11] of integer; i,k,t: integer; begin for i: =1 to 10 do read(a[i]); read(k); for t: =1 to 11 do if a[t]> k then break; for i: =11 downto t+1 do a[i]: =a[i-1]; a[t]: =k; for i: =1 to 11 do write(a[i],' '); end.
Популярно: Информатика
-
TatyanaKras28.04.2020 05:02
-
mizery128.05.2023 00:52
-
youyousiis21.10.2020 08:16
-
Вадім200617.04.2020 16:24
-
annamoskalenko1109.08.2021 21:27
-
ladiaginairina24.05.2021 13:57
-
Deelay18.05.2021 19:21
-
kitrfjhhru04.02.2021 10:48
-
eDin704.09.2020 14:57
-
pro100rak219.08.2022 01:10