Bài 6. Câu lệnh điều kiện

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Tam Be

Tin8

Viết chương trình nhập N số nguyên từ bàn phím, hãy tính và in ra màn hình kết quả của tổng các số nhập vào ( sử dụng lệnh for... do) hoặc (lệnh while..... do )

Nguyễn Trung Hiếu
3 tháng 5 2019 lúc 21:52

Sử dụng lệnh for .. do:
uses crt;
var s,i,n:longint;
a:array[1..100000] of longint;
begin
clrscr;
write('Nhap 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];
write('Tong cac so nhap vao la: ',s);
readln
end.

Nguyễn Trung Hiếu
3 tháng 5 2019 lúc 21:58

Sử dụng lệnh while .. do:
uses crt;
var s,i,n,a:longint;
begin
clrscr;
write('Nhap n: '); readln(n);
i:=1;s:=0;
while i<=n do begin
write('Nhap so thu ',i,' la: ');readln(a);
s:=s+a;
i:=i+1;
end;
write('Tong cac so nhap vao la: ',s);
readln
end.


Các câu hỏi tương tự
Snsbbdbd Xnxb
Xem chi tiết
Huy Tùng Vũ
Xem chi tiết
nhật nguyên
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Duy Thanh Bùi
Xem chi tiết
Ngoc Thanh
Xem chi tiết
huu nguyen
Xem chi tiết
Đào Cẩm
Xem chi tiết