Bài 11: Kiểu mảng

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

Viết chương trình nhập vào một mảng nguyên, gồm n phần tử nhập từ bàn phím, hiển thị mảng đã nhập ra màn hình, tính tổng mảng.

 

Nguyễn Lê Phước Thịnh
21 tháng 8 2021 lúc 0:48

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do 

begin

readln(a[i]);

end;

for i:=1 to n do 

  write(a[i]:4);

readln;

t:=0;

for i:=1 to n do 

 t:=t+a[i];

writeln(t);

readln;

end.


Các câu hỏi tương tự
Nguyễn tiên
Xem chi tiết
Yến Nhi
Xem chi tiết
nông thị ngân
Xem chi tiết
Benny
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
truc nguyen
Xem chi tiết
Nguyen Loi
Xem chi tiết
boo2401
Xem chi tiết
Minh Hoạt
Xem chi tiết