Определить значение переменных g и c, если n=5, a=[-2,5,0,8,-3]
c:=0; g:=0;
for i:=1 to n do
if a[i]>0 then begin
c:=c+a[i];
g:=g+1;
end;