Question

Va rog ajutati-ma! 20 pct!!!
1.Se citesc n numere întregi. Să se calculeze suma numerelor negative şi câte numere pare sunt.

Answer 1

Program P1;
var i,n,n1,s,p:integer;
begin
writeln('Cite numere vor fi citite de la tastatura?');
readln(n);
for i:=1 to n do
begin
write('n',i,'=');
readln(n1);
if (n1 mod 2 <> 0) then s:=s+n1
else if (n1 mod 2 = 0)then p:=p+1;
end;
writeln('in sir au fost gasite ',p,' numere pare');
writeln('Suma numerelor impare din sir=',s);
end.