Осмотрите решение задачиVar a,n,k: integer;Beginreadln(a);If aamp;gt;=0 then

Осмотрите решение задачки
Var a,n,k: integer;
Begin
readln(a);
If agt;=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 agt;=0 then
k:=k+1
Else
n:=n+1;
end; конец цикла
Writeln(k);
Wtiteln(n);
End.

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