Задание 5 Параграф 24 ГДЗ Семакин 8 класс (Информатика)

1. Составьте программу для подсчёта количества положительных и отрицательных чисел в последовательности из 10 чисел.

Нужно последовательно ввести 10 чисел и подсчитать отдельно количество положительных и отрицательных. Для этого заведём два счётчика: $$k1$$ — для положительных чисел, $$k2$$ — для отрицательных.

Сначала оба счётчика обнуляем. Затем в цикле $$10$$ раз вводим число $$a$$ и проверяем его знак:

• если $$a > 0$$, увеличиваем $$k1$$ на 1;
• если $$a < 0$$, увеличиваем $$k2$$ на 1;
• если $$a = 0$$, ничего не меняем.

program task_5;
var
  i, a, k1, k2: integer;
begin
  k1 := 0; k2 := 0;
  for i := 1 to 10 do
  begin
    write(‘Введи число:’);
    readln(a);
    if a > 0 then k1 := k1 + 1
    else if a < 0 then k2 := k2 + 1;
  end;
  writeln(‘Положительных >> ‘, k1, ‘ Отрицательных >> ‘, k2);
end.

Ответ

Программа подсчитывает количество положительных и отрицательных чисел в последовательности из 10 чисел.