program SumAndCountOfNegativeNumbers;
varn, num, sum, countNegative: integer;
beginsum := 0;countNegative := 0;
writeln('Enter the value of n:');readln(n);
for var i := 1 to n dobeginwriteln('Enter a number:');readln(num);
end;
writeln('The sum of the numbers is: ', sum);writeln('The count of negative numbers is: ', countNegative);end.
program SumAndCountOfNegativeNumbers;
var
n, num, sum, countNegative: integer;
begin
sum := 0;
countNegative := 0;
writeln('Enter the value of n:');
readln(n);
for var i := 1 to n do
sum := sum + num;begin
writeln('Enter a number:');
readln(num);
if num < 0 then
countNegative := countNegative + 1;
end;
writeln('The sum of the numbers is: ', sum);
writeln('The count of negative numbers is: ', countNegative);
end.