Bài 11: Kiểu mảng

Nguyễn thị ngọc yến
Dạ giúp e với ạ 1. Nhập mảng các số nguyên 2. Tính tổng mảng
Lê Nhật Ninh
26 tháng 1 2021 lúc 23:15

program bt;

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

i,n,t:integer;

beginwrite('nhap so phan tu cua mang');

readln(n);for i:=1 to n do

begin

write('phan tu thu ',i,' : ');

readln(a[i]);

end;for i:=1 to n dot:= t + a[i]

write('tong cac phan tu trong mang la :',t);

readln

end

*thử lại xem có đúng ko nhe !

Bình luận (1)
Nguyễn Lê Phước Thịnh
27 tháng 1 2021 lúc 13:16

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

  t:=t+a[i];

writeln('Tong cac so trong mang la: ',t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Divine 000
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Khánh Linh
Xem chi tiết
Huỳnh Thanh
Xem chi tiết
Nguyễn Quang Hà
Xem chi tiết
Kiên Đào Trung
Xem chi tiết
Bui Trong Diep
Xem chi tiết
Nguyễn Văn Tú
Xem chi tiết