Ответы на вопрос:
Const n=2014; var a: array[1..n]of integer; i,k: integer; begin for i: =1 to n do a[i]: =random(100); for i: =2 to n do if a[i] > 2*a[i-1] then k += 1; writeln(k); end.
Популярно: Информатика
-
fpokryshkin27.03.2022 11:02
-
romankonev200004.05.2022 01:57
-
sonex00814.08.2020 05:39
-
filimonovajulia108.04.2020 03:35
-
anisimovamargar128.09.2022 23:08
-
Лера2088807.06.2022 07:01
-
adrinaline28.07.2021 14:58
-
Wakawak15.12.2020 07:47
-
UNCLEVLAD05.06.2020 17:38
-
alelinahka20.08.2020 22:42