Выводятся 14 чисел определить сколько среди них положительных включая 0 и солько отрицательных числавводятся в одну переменную в цикле
ellapopova05
3
21.05.2019 08:30
4
Другие вопросы по теме Информатика
Pavel1810
29.07.2019 09:00
samat314
29.07.2019 09:00
alenalevkika79
07.12.2020 23:55
gricenkoviktor
07.12.2020 23:59
aydanxudieva14
27.10.2020 12:04
rje87391
27.10.2020 12:05
TheGrigory
14.09.2019 19:00
nikitalandsberg
14.09.2019 19:00
dxdarthur2001
16.07.2019 15:20
Популярные вопросы
- 2) Which word doesn’t belong to the set?(Какое слово не подходит в данном...
1 - Всем привет. Я как обычно пинал баклуши, и не сделал домашнее задание....
3 - В партии из 10 деталей имеется 6 стандартных найти вероятность того что...
1 - . Общее название для всех терминов к творчеству трудиться к целеполаганию...
1 - Можно с подробным решением, дано, найти, решение, ответ, буду очень благодарна,...
3 - Велосипедист на соревнованиях равноускоренно двигался по горной дороге....
1 - 1. Почему военачальник арабов Кутейба ибн Муслим в период завоевательных...
2 - Определите, к какому виду дисциплины относятся следующие правила. Все...
2 - 2 Write indirect requests using the correct form of tell or ask. 1 Tell...
3 - (come) 1. Choose the correct form Past Simple Past Continuous and complete...
3
Program Stats;
var a,k,d,c:integer;
begin
d:=0;
k:=0;
c:=0;
repeat
readln(a);
d:=d+1;
if a>= 0
then
begin
k:=k+1;
end;
if a<0
then
begin
c:=c+1;
end;
until d = 14;
writeln('+ ',k);
writeln('- ',c);
readln
end.