Рассмотрите решение задачи
Var a,n,k: integer;
Begin
readln(a);
If a>=0 then
k:=k+1
Else
n:=n+1;
Writeln(k);
Wtiteln(n);
End.
Как нужно изменить программу, чтобы вводилось 50 чисел?
Рассмотрите решение задачи:
Var a,i,n,k: integer;
Begin
readln(a);
for i:=1 to 50 do {цикл меняется от 1 до 50}
begin {начало цикла}
If a>=0 then
k:=k+1
Else
n:=n+1;
end; {конец цикла}
Writeln(k);
Wtiteln(n);
End.

Сформулируйте условие задачи:

Добавить в код цикл