Вопрос пользователя:
Составить на языке Паскаль программу, которая запрашивает с клавиатуры N целых чисел и считает, сколько из них положительных, сколько отрицательных и сколько нулей. Разработать для программы не менее двух тестов и доказать правильность её работы.
Илюха отвечает:
program ms3o1; {пишу по памяти-не судите строго за ошибки}
var n,i,j,p,o,n:integer;
begin
n:=0; {тут у нас будут ноли}
o:=0;{тут отрицательные}
p:=o;{и тут соответственно положительные}
writeln(‘Введите кол-во целых чисел для проверки’);readln(n);
for i:=1 to n do
begin
writeln(‘Введите число: ‘);readln(j);
if j=0 then n:=n+1;
if j>0 then p:=p+1;
if j<0 then o:=o+1;
end;
writeln(‘Отрицательных: ‘,o);
writeln(‘Положительных: ‘,p);
writeln(‘Равны ноль: ‘,n);
readln;
end.