Ответы на вопрос:
Program gt; var a: array[1..10]of integer; i,k: integer; begin randomize; for i: =1 to 10 do a[i]: =random(10)+1; k: =0; for i: =2 to 10 do if(a[i]> a[i-1])then k: =k+1; writeln(k); end.
Популярно: Информатика
-
Nicoleta2321.06.2021 09:08
-
plimita13419.09.2020 08:16
-
egoroff127127.04.2020 17:23
-
Масяня87823.01.2023 14:02
-
Melenocka060629.12.2020 13:53
-
СлаваБорисов12315.12.2020 06:36
-
art161015.06.2021 17:12
-
mrcoblov02.08.2021 19:02
-
murrrКотя09.11.2021 08:14
-
школа43326.08.2022 22:43