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

Задача

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 чисел и подсчитать отдельно количество положительных и отрицательных. Для этого заведём два счётчика: $$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.