Program Numeros;
var 	qtd_neg,i:integer;
	soma_pos:real;
	num:array [1..10] of real;
 Begin
 for i:=1 to 10 do
	readln (Num[i]);
 qtd_neg:=0;
 soma_pos:=0;
 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 ('Há ',qtd_neg,' números negativos.');
 writeln ('A soma dos números positivos deu: ',soma_pos);		 
 End.
