Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Lê Phước Thịnh
20 tháng 4 2022 lúc 16:59

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.


Các câu hỏi tương tự
Chi Đặng
Xem chi tiết
Nguyễn Thị Trà My
Xem chi tiết
Trần. A. Vũ
Xem chi tiết
Hồ Hà
Xem chi tiết
Ánh sao
Xem chi tiết
Trần Đình Hải
Xem chi tiết
Trần Huy
Xem chi tiết
Thuc Nguyen
Xem chi tiết
Harunastu
Xem chi tiết
Harunastu
Xem chi tiết