Quảng cáo
1 câu trả lời 325
Program Hotboy ;
Uses crt;
Var a:array[1..50] of integer ;
S,n,i: Longint ;
Begin
Clrscr ;
S:=0;
Writeln('nhap so phan tu');
Readln(n);
For i:=1 to n do
Begin
Write('A[',i,']');
Readln(A[i]);
End;
For i:=1 to n do
S:=S+A[i];
Writeln('Tong cac so trong mang la',S);
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86243
Gửi báo cáo thành công!
