Вводится число N, а затем N чисел. Подсчитайте, сколько посреди данных

Вводится число N, а потом N чисел. Подсчитайте, сколько среди данных N чисел нулей. Pascal (Цикл For)

Задать свой вопрос
1 ответ
Писал уже:
var input, num, nulls, positive, negative, i: integer;
begin
write('Введите кол-во чисел: ');
readln(input);
for i := 1 to input do begin
  write('Введите число номером ', i, ': ');
  readln(num);  if num = 0 then inc(nulls, 1);
  //if num lt; 0 then inc(negative, 1);
  //if num gt; 0 then inc(positive, 1);
end;
writeln('Кол-во нулей: ', nulls);
//writeln('Кол-во положительных чисел: ', positive)
//writeln('Кол-во отрицательных чисел: ', negative);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт