cho n nguyên dương và dãy a số nguyên a1, a2,a3… tính tổng các số chia hết cho 3 trong dãy , cho ý tưởng và xây dựng thuật toán
cho n nguyên dương và dãy a số nguyên a1, a2,a3… tính tổng các số chia hết cho 3 trong dãy , cho ý tưởng và xây dựng thuật toán
By Alice
uses crt;
var s,i,n:integer;
a:array[1..200] of integer;
begin
clrscr;
readln(n);
for i:=1 to n do begin
writeln(‘a[‘,i,’]=’);readln(a[i]);
end;
s:=0;
for i:=1 to n do begin
if a[i] mod 3 =0 then s:=s+a[i];
end;
writeln(‘tong la’,s);
readln;
end.
Bước 1: Nhập n, A[1..n]
Bước 2: i<-1; s<-0;
Bước 3: Nếu i>n thì thực hiện bước 5
Bước 4:
4.1: Nếu A[i] mod 3 = 0 thì s<-s+i;
4.2: i<-i+1;
Bước 5: Xuất s và kết thúc chương trình