ПОМОГИТЕ ЗАДАЧУ В ПАСКАЛЕ РЕШИТЬ!Количество чисел не превосходит 1000. Введенные числа

ПОМОГИТЕ ЗАДАЧУ В ПАСКАЛЕ РЕШИТЬ!

Количество чисел не превосходит 1000. Введенные числа по модулю не превышают 30000 программа обязана вывести два числа: сумму чисел и разность количества положительных и отрицательных чисел. Пример работы программки:
Входные данные:150;-200;-1;0
Выходные данные:-51;-1

Задать свой вопрос
1 ответ
Вот пожалуйста. Сделал на PascalABC.NET

program HelloWorld;var i, x, y, z: integer;begin
i:=1;while ilt;gt;0 do begin readln(i); x:=x+i; if igt;0 then y:=y+1; if ilt;0 z:=z+1 end;writeln(x, ';', y-z);    end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт