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

Question

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

phuongthao · Answer

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

maingoc · Answer

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.

0 bình luận về “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”