Bài tập mảng một chiều

[hangnt94]

[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.

Nhập vào một dãy gồm n số nguyên in ra các phần tử của dãy và tồng các phần tử đó.


Giúp mình làm bài tập này nha

 

[truonghandan0210]

Haiz, bạn nên tham khảo trước rồi hãy hỏi nhé!!!

PROGRAM DAY_SO;
VAR x:ARRAY[1..1000] OF INTEGER;
n,s,k:LONGINT;
BEGIN
s:=0;
write('nhap so n '); readln(n);
FOR k:=1 TO n DO BEGIN
write('x[',k,']='); readln(x[k]);
s:= s+x[k];
END;
FOR k:=1 TO n DO
write(x[k]:3);
writeln;
write('tong cac phan tu la ',s);
readln;
END.

Ấn tks và nhấn đúng cho mình nha