program qq;uses CRT;const N=10;var a:array[1..N] of integer;i,sum:integer;beginfor i:=1 to N dobeginwrite('a[',i,']=');read(a[i]);end;sum:=0;for i:=1 to N doif a[i]>=0 thensum:=sum+1;writeln('Количество положительных элементов в массиве равно',sum);end.