Размещено 5 лет назад по предмету Информатика от fatid

У меня есть готовый код паскаля (но я не знаю, по какой причине у меня не получается его увидеть как требуется в задании (Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N вводится с клавиатуры.)
Можно переделать код, но без использования uses crt и т.д. Сделать нужно с циклом for while и/или repeat. К слову, пользуюсь Pascal.ABC.NET (не знаю, какие значения и где нужно вводить, чтобы получить результат, требуемый в задании).

program zadacha3;
var
n, o, p, k, i: integer;
a: real;
begin
repeat
write('N = ');
readln(n);
until (n > 0);
i := 0;
k := 0;
p := 0;
o := 0;
repeat
write('Ввод:');
readln(a);
i := i + 1;
if a < 0 then o := o + 1 else
if a > 0 then p := p + 1 else k := k + 1;
until i = n;
writeln('Кол-во положительных: ', p);
writeln('Кол-во отрицательных: ', o);
writeln('Кол-во нулей: ', k);
readln;
end.

Ответ на вопрос

Ответ на вопрос дан Dijas

Не очень корректно объяснили, но если правильно вас понял:
Program G;
Var n, z, m, p: integer;
Begin
  z:=0;
p:=0;
m:=0;
Writeln('Введите число n. Число 9999 завершает цикл.');
Readln(n);
While n<>9999 do
  Begin
   If n=0 then inc(z);
  else if n>0 then inc(p);
  else inc(m);
Writeln('Введите число');
Readln(n);
  End;
Writeln('Было введено ', z, ' нулей.');
Writeln('Было введено ', p, ' положительных чисел.');
Writeln('Было введено ', m, ' отрицательных чисел.');
Readln;
End.
1. Ответ на вопрос
  
  Ответ на вопрос дан fatid
  
  Выше, в комментариях под моим вопросом, я написал, что именно не понимаю. Тот код, насколько я знаю - верный. Я не знаю как его выполнить. Т.е. возможно куда-то не туда и не то ввожу, где оно того требуется.
2. Ответ на вопрос
  
  Ответ на вопрос дан fatid
  
  write('N = '); - тут понятно, любое число. write('Ввод:'); - а тут?
3. Ответ на вопрос
  
  Ответ на вопрос дан fatid
  
  inc - мы не проходили и в моем коде, скажем так только то, что можно использовать, чтобы выполнить задание написанное выше.
4. Ответ на вопрос
  
  Ответ на вопрос дан fatid
  
  Уже все сам понял. Спасибо за труды!