Ответы на вопрос:
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.
Популярно: Информатика
-
sonex00801.01.2020 06:32
-
Ира165627.10.2022 21:28
-
Сандалёк02.02.2020 14:23
-
дариночка06413.04.2023 05:56
-
persik2178308653215.07.2021 15:49
-
НуриманН12.11.2022 04:06
-
kkkkk2417.04.2022 05:50
-
murat12122115.10.2021 05:19
-
Руслана46222.05.2022 16:01
-
ViksAks02.01.2023 00:52