Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

Ответ оставил Гость

Program 4isla;
var
N, p, o, z, i: byte;
A: integer;
Begin
Readln (N);
for i:=1 to N do
Begin
Readln (A);
If A > 0 then
p:=p+1;
if A < 0 then
o:=o+1;
if A = 0 then
z:=z+1;
End;
Writeln (Положительных чисел - , p);
Writeln (Отрицательных чисел - , o);
Writeln (Нулей - , z);
Readln;
End.