Răspuns :
program pr1;
var n, i, neg: integer;
num:real;
begin
write('n='); read(n);
writeln('introdu ',n,' numere:');
for i:=1 to n do
begin
read(num);
if num<0 then neg:=neg+1;
end;
writeln('sunt ',neg,' numere negative');
end.
program pr2;
var n, i, impare: integer;
v:array[1..50]of integer;
begin
write('n='); read(n);
writeln('introdu ',n,' numere:');
impare:=0;
for i:=1 to n do
begin
read(v[i]);
if v[i] mod 2 = 1 then impare:=impare+1;
end;
writeln('sirul imparelor:');
for i:=1 to n do
begin
if v[i] mod 2 = 1 then write(v[i],' ');
end;
if impare=0 then write('NU EXISTA...');
writeln;
end.
program pr3;
var i, unu, num:integer;
begin
writeln('introdu un sir de numere, pentru stop - introdu 0 (zero)');
read(num);
unu:=0;
while num<>0 do
begin
if num=1 then unu:=unu+1;
read(num);
end;
writeln('In sirul introdus sunt ',unu,' de 1');
end.
program SumaCifrelorPare;
var num, cif, suma: integer;
begin
write('introdu numar intreg: '); readln(num);
suma:=0;
while num<>0 do
begin
cif:=num mod 10;
if cif mod 2 =0 then suma:=suma+cif;
num:=num div 10;
end;
writeln(' suma cifrelor pare = ', suma);
end.
program ProdusulCifrelorImpare;
var num, cif, prod: integer;
begin
write('introdu numar intreg: '); readln(num);
prod:=1;
while num<>0 do
begin
cif:=num mod 10;
if cif mod 2 =1 then prod:=prod*cif;
num:=num div 10;
end;
writeln(' Produsul cifrelor impare = ', prod);
end.
program minimulDinSir;
var n, i, num, minim: integer;
begin
write('n='); readln(n);
writeln('introdu ',n,' numere intregi:');
read(num);
minim:=num;
for i:=2 to n do
begin
read(num);
if num<minim then minim:=num;
end;
writeln('cel mai mic numar din sir este ',minim);
end.
program CifreDivizCu3;
var num, cif, gasit: integer;
begin
write('introdu numar intreg: '); readln(num);
gasit:=0;
write(' cifrele lui divizibile cu 3: ');
while num<>0 do
begin
cif:=num mod 10;
if cif mod 3 =0 then begin write(cif, ' '); gasit:=1; end;
num:=num div 10;
end;
if gasit=0 then writeln(' Nu exista...');
end.
program NrCifrelorPare;
var num, cif, pare: integer;
begin
write('introdu numar intreg: '); readln(num);
pare:=0;
write(' numarul cifrelor pare: ');
while num<>0 do
begin
cif:=num mod 10;
if cif mod 2 =0 then pare:=pare+1;
num:=num div 10;
end;
writeln(pare);
end.
