Question

5-> c si d; 6-> a;
Se citeşte de la tastatură n, un număr natural nenul, n<100, apoi se citesc cele n elemente

ale vectorului a. Să se afişeze pe ecran:

c. Numărul de valori egale cu 0 din vectorul dat

d. Suma numerelor de exact 3 cifre din vectorul dat

6. Se citeşte de la tastatură n, un număr natural nenul, n<100, apoi se citesc cele n elemente

ale vectorului a. Să se afişeze pe ecran:

a. produsul numerelor mai mari decât 100

Answer 1

var a:array[1..99] of integer;
i,n,z,s,r,c:integer;

begin
read(n);
writeln;

for i:=1 to n do begin 
read(a[i]);
if (a[i]=0) then inc(z);
c:=0;
r:=a[i];
repeat
r:=r div 10;
inc(c);
until r=0;
if c=3 then s+=a[i];
end;

writeln;
writeln('Valori egal cu 0: ',z,' Suma numerelor de 3 cifre: ',s);
end.







var a:array[1..99] of integer;
n,i,prod:integer;

begin
read(n);
writeln;
prod:=1;

for i:=1 to n do begin
read(a[i]);
if a[i]>100 then prod*=a[i];
end;

writeln('Produs: ',prod);
end.