Var i,s,k:integer; a:array[1..10]of integer; begin for i:=1 to 10 do begin a[i]:=random(-50,50); write(a[i],' '); if a[i]>0 then s:=s+a[i]; if a[i]<0 then k:=k+1; end; writeln; writeln ('Сумма положительных: ',s); writeln ('Количество отрицательных: ',k); end.
i,s,k:integer;
a:array[1..10]of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(-50,50);
write(a[i],' ');
if a[i]>0 then s:=s+a[i];
if a[i]<0 then k:=k+1;
end;
writeln;
writeln ('Сумма положительных: ',s);
writeln ('Количество отрицательных: ',k);
end.