Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Mình nghĩ b gửi thiếu đề roi. Tại tổng của tất cả số hạng bằng không thì nó cũng sẽ bằng 0. Mình làm có gì b sửa lại sau nhé, nếu có gì thắc mắc phản hồi ở dưới mình sẽ giải thích cho b.
a)
Input: N và dãy a1,a2,...,an
Output: Tổng các số hạng bằng 0
b)
Bước 1: Nhập N và dãy a1,a2,...,an
Bước 2: i←1; t←0;
Bước 3: Nếu i>N thì in ra kết quả rồi kết thúc thuật toán
Bước 4: Nếu ai=0 thì t←t+ai;
Bước 5: i←i+1, quay lại bước 3
Program HOC24;
var i,n: integer;
a: array[1..32000] of integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 3=0 then t:=t+a[i];
end;
write('Tong cac phan tu chia het cho 3 la: ',t);
readln
end.
uses crt;
var a:array[1..100]of integer;
n,i,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
if a[i] mod 3=0 then t:=t+a[i];
writeln(t);
readln;
end.
a Số hạng thứ 32 là số 8.
b Khi viết tới số hạng thứ 97 thì đã viết được 33 số 1, 64 số 8
