program HelloWorld;
uses crt;
var I,s:integer;
summa:real;
A:array[I...20] of real;
begin
Clrscr; s:=0; summa:=0;
for i:=1 to 20 do
begin
writeln('a[',I,']-?');
Readln(a[i]);
End;
For i:=1 to 20 do
begin
If (a[i]>0 then s:=s+1 else summa:=summa+a[i]);
end;
writeln('massivtegi on elementter sani= ',s);
writeln('massivtegi teris elementter kosindisi=',summa);
end.
