Ответы на вопрос:
Запускаешь программу и пишешь сначала количество чисел в твоей последовательности: 8, далее вводишь свои числа. var n,i,k: integer; a: real; begin read(n); while i< n do begin read(a); if (a< 0) then k: =k+1; i: =i+1; end; writeln(k); end.
Популярно: Информатика
-
anasteysha2000311.03.2021 15:06
-
Rednegel08.08.2020 02:45
-
grandx0429.11.2022 11:58
-
operovist15.03.2020 12:22
-
polyakkate17.06.2020 10:07
-
lucky2017123.05.2021 18:49
-
ivolapseb22.09.2022 04:39
-
semiglazova29.09.2020 11:00
-
Alexandr2K1723.07.2020 16:01
-
natalavorik27.10.2021 14:39