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

Ниже вариант решения задания из учебника Семакин, Залогова 8 класс, Просвещение:

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

program task_5;

var

i, a, k1, k2: integer;

begin

k1 := 0; k2 := 0;

for i := 1 to 10 do

begin

write(taskВведи число:task);

readln(a);

if a > 0 then k1 := k1 + 1

else if a

end;

writeln(taskПоложительных > > task, k1, task Отрицательных > > task, k2)

end.