Cho dãy A gồm N số nguyên có giá trị a1, a2, …,an. Hãy tính tổng các phần tử trong dãy A.
2 câu trả lời
B,B1:Nhập dãy a1,a2....an
B2: i<--1;S<--0
B3:Nếu i>N thì thông báo S,kết thúc thuật toán
B4:Nếu ai chia hết cho 2 thì S<--S+ai
B5: i<--i+1
B6:Quay lại B3
Prrogram tinhtoan;
Uses crt;
Var A:array[1..200] of longint;
N,i,S:integer;
Begin
Clrscr;
Write('N='); Readln(N);
For i:=1 to N do
Begin
Write('A[',i,']=');
Readln(A[i]);
S:=S+A[i];
End;
Writeln('Tong cua cac phan tu:',S);
Readln;
End.
Câu hỏi trong lớp
Xem thêm
