Tin học Thuật toán

[Dưa Chuột]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Viết thuật toán tính tổng các số trong dãy số a gồm N số a[tex]_{1}[/tex],a[tex]_{2}[/tex],..., a[tex]_{N}[/tex].

 

[Code11]

giả sử dãy n gồm tối đa 200 số nguyên
var
a:array [1..200] of int64;
i,n:integer;
tong:int64;
begin
write('Nhap so phan tu:');readln(n);
tong:=0;
for i:=1 to n do begin
write('Nhap phan tu thu ',i,':');readln(a);
tong:=tong+a;
end;
write('tong la:',tong);readln;
end.