Program numeros ;
var num:array[1..10] of real;qtd_neg,i:integer;soma_pos:real;
 Begin
  qtd_neg:=0;
  soma_pos:=0;
  writeln('escreva 10 numeros');
  for i:=1  to 10 do
  	readln(num[i]);
  for i:=1 to 10 do
  	begin
  		if num[i]<0 then
  			qtd_neg:=qtd_neg+1
  		else
  			soma_pos:=soma_pos+num[i];
	end;
  writeln('existem ',qtd_neg,' numeros negativos');
  writeln('a soma dos numeros positivos é ',soma_pos);	
 End.
