Question

Scrieti programul in pascal.
Se citesc n, n>5 numere intregi.
a) Sa se calculeze produsul si media aritmetica a acestor numere.
b)Sa se calculeze produsul numerelor impare.

Answer 1

var  n, i, produs, produs_impar: integer;

begin
  readln(n);
  produs := 1;
  produs_impar := 1;
  if n > 5 then
 begin
    for i := 1 to n do
     begin
      produs := produs + n;
      if i mod 2 <> 0 then
        produs_impar := produs_impar * n;
    end;
     writeln(' Media aritmetica este ' + (produs / n));
    writeln(' Produsul numerelor este ' + produs);
    writeln(' Produsul numerelor impare este ' + produs_impar);
  end;
end.

740f9ebeffec438d688d774f35de7323.pas

3ebcbb0d1aae000a48defbabdc374db3.txt