Ôn tập cuối năm

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngọc Ty

Viết chương trình  nhập vào dãy số gồm có N phần tử a1, a2, a3,…,an (N<=100). Các phần tử của dãy số là các số nguyên (với n là  số nguyên dương được nhập vào từ bàn phím). Thực hiện các yêu cầu sau:.

a. In ra màn hình giá trị của các phần tử vừa nhập

Tính tổng các số vừa nhập và in kết quả ra màn hình

Kiều Vũ Linh
24 tháng 4 2023 lúc 18:56

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

i,n:integer;

s:longint;

Begin

Write('n = ');readln(n);

For i:=1 to n do

Begin

Write('Nhap phan tu thu ',i,' = ');readln(a[i]);

s:=s+a[i];

End;

Write('Cac phan tu vua nhap la ');

For i:=1 to n do

Write(a[i]:8);

Writeln;

Write('Tong cua chung la ',s);

Readln

End.


Các câu hỏi tương tự
Nguyễn Khải Minh
Xem chi tiết
Phạm Linh
Xem chi tiết
Vẹt Vẹt
Xem chi tiết
Phạm Hữu Đức
Xem chi tiết
Bao Duong
Xem chi tiết
Vân anh
Xem chi tiết
Yan Dyi
Xem chi tiết
Thánh Tiền
Xem chi tiết
Hoan Lý
Xem chi tiết