Ответы на вопрос:
program pr1; uses crt; var mas: array[1..30] of integer; i,p: integer; beginclrscr; for i: =1 to 30 do begin writeln('t za ',i,' den'); readln(mas[i]); end; p: =0; for i: =1 to 30 do if mas[i]< -10 then p: =p+1; writeln(p); end.
Популярно: Информатика
-
rus17007.09.2021 20:12
-
ladykris11112.04.2023 01:59
-
ksenia3229.06.2021 07:03
-
Ilonka273416.04.2021 02:26
-
lisa22151303.02.2023 22:50
-
zb200405.02.2022 01:17
-
lowander300022.02.2021 14:33
-
26dura03.03.2020 11:11
-
PrOFy10003.09.2021 00:55
-
СоНя208013.03.2022 17:21