Дана последовательность целых чисел 0, 9, 1, 8, 2, 7, 3, 6, 4, 5, 90, … следующее число – двухзначное. укажите его.
182
403
Ответы на вопрос:
Program f777; varx: array[1..102] of integer; mult,max,i,num: integer; begin for i: =1 to 6 do readln(x[i]); max: =x[1]; for i: =1 to 6 do if max < x[i] then begin max: =x[i]; num: =i; end; num: =num+1; mult: =1; for i: =num to 6+num do begin if i = 6- num then x[mult]: =0 else x[mult]: =x[i]; mult: =mult+1; end; x.print(' '); end.
Популярно: Информатика
-
aikosyatb18.01.2023 14:38
-
143General19.12.2020 21:20
-
emkaemkovich90216.11.2022 23:32
-
витяак7422.02.2022 10:29
-
VLADWER524.05.2023 19:01
-
frausadykova2015.10.2022 21:21
-
123295615.05.2022 21:49
-
имилька01.02.2021 14:59
-
tjomiki30.10.2022 07:24
-
alyaomelchenko19.07.2020 21:00