вводим число,признак конца ряда 0 вывести количество положительных и отрицательных чисел пример: 1 5 6 -3 8 -2 0 положительных 4 отрицательных 2 прошу, используйте пожалуйста только repeat until while заранее спасибо
var a,k1,k2:integer; begin k1:=0; k2:=0; repeat write('a = '); readln(a); if a>0 then k1:=k1 1 else if a<0 then k2:=k2 1; until a=0; writeln('k1 = ',k1,' k2 = ',k2); end.
Пример: a = 1 a = 5 a = 6 a = -3 a = 8 a = -2 a = 0 k1 = 4 k2 = 2
более месяца назад
Ваш ответ:
Вы можете из нескольких рисунков создать анимацию (или целый мультфильм!). Для этого нарисуйте несколько последовательных кадров
и нажмите кнопку Просмотр анимации.
