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

Hiruyashi Kagome

câu 1: viết chương trình tính tổng, tích các số tự nhiên nhập từ bàn phím.

câu 2: viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của 1 dãy số. độ dài của dãy số cũng được nhập từ bàn phím.

p/s: mik ngu môn tin nhắm nhuôn, lên máy tính chỉ bt cày game thui. giúp mik nha mik đang cần gấp nhất là câu 2, trả lời đúng mik nhất định sẽ tick.haha

trung nguyen sy
20 tháng 4 2017 lúc 20:47

Câu 1:

program bt;

uses crt;

var a:array[1..1000] of integer;

i,n,tong,tich:integer;

begin

clrscr;

write('Do dai cua day la:'); readln(n);

for i:=1 to n do

begin

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

end;

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong + a[i];

tich:=tich*a[i];

end;

write('tong cac so tu nhien nhap tu ban phim:',tong);

writeln;

write('tich cac so tu nhien nhap tu ban phim:',tich);

readln

end.

Câu 2:

program bt;

uses crt;

var a:array[1..1000] of integer;

i,n:integer;

begin

clrscr;

write('nhap do dai day so:'); readln(n);

writeln('nhap cac phan tu cua day:');

for i:=1 to n do

begin

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

end;

readln

end.

Bình luận (6)

Các câu hỏi tương tự
Đào Cẩm
Xem chi tiết
Minh Đạt
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Huyền Trần
Xem chi tiết
Thư ĐT
Xem chi tiết
Nguyễn Như Ngọc
Xem chi tiết
Hồ Ngọc Thiện
Xem chi tiết
Mẫn Kim Anh
Xem chi tiết
Trần Hà Thư
Xem chi tiết