Question

Viết chương trình nhập vào một dãy số nguyên và tính tổng dãy đó.

Viết chương trình nhập vào một dãy số nguyên và tính tích dãy đó.

........................Pascal.......................

Answer 1

2.

uses crt;

var i, n :integer;

tich: longint;

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

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

tich:=1;

for i:=1 to n do

tich:= tich* a[i];

writeln('tich cua day so la: ', tich);

readln

end.

1.

uses crt;

var i, n:integer;

s: longint;

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

begin

write('nhap so n:'); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

for i:=1 to n do

s:= s+ a[i];

writeln('tong cua day so la: ', s);

readln

end.

Answer 2

Câu 1 khỏi làm nha.....Help me câu 2 nhé các bn