Question

Answer 1

Câu 5: 

uses crt;

var s,t,i,n:integer;

a:array[1..100]of integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

s:=1;

for i:=1 to n do 

  begin

t:=t+a[i];

s:=s*a[i];

end;

writeln(t);

writeln(s);

readln;

end.