Ответы на вопрос:
Uses crt; var a: real; k,i: integer; begin for i: =1 to 10 do begin readln(a); if a< 0 then k: =k+1; end; write(k) end.
Популярно: Информатика
-
dasha1232826.03.2021 00:11
-
nosovadascha2003.05.2023 01:40
-
yaroslav945310.07.2022 03:48
-
artemluts00727.03.2020 05:29
-
vtrutnev14.05.2023 22:01
-
igauhar1970oze1dn20.05.2022 20:32
-
sonya1997011.11.2021 19:06
-
Мишаня172104.09.2021 22:13
-
Ястеб2211.11.2021 17:49
-
zhenyaermakov17.12.2020 17:03