Nhờ mọi người làm giúp bài tin lớp 10.

[light_future96]

Trình bày thuật toán giải bài toán đếm và tính tổng các số chia hết cho 3 của dãy gồm n số nguyên dương cho trước.

 

[rÙa tjỂu tHư]

chị viết hàm kiểm tra số chia hết cho 3 trước. hoặc là xài thủ tục cũng đc
sau đó viết luôn chương trình chính
trong chương trình chính thì cho quét hết tất kả các số. dùng hàm kiểm tra xem số đó có chia hết cho 3 không. số nào chia hết thì gán biến đếm thêm 1 đơn vị và cộng vs biến tổng là ok r.....^^!
[bài nỳ dễ mờ ]

 

[rÙa tjỂu tHư]

Var a:array [1..100] of integer;
dem, tong, i, n: integer;
BEGIN
{[FONT=&amp]nhập vào từ bàn phím n số[/FONT]}
Write (‘n =’); read ;
For i:= 1 to n do
begin write (‘a[‘,i,’] =’ );
read (a); end;
{[FONT=&amp]đếm và tính tổng[/FONT]}
dem:=0;
tong:=0;
For i:=1 to n do
If a mod 3 = 0 then
begin dem:= dem + 1;
tong:= tong + a;
end;
writeln (‘So cac so chia het cho 3 trong day la ’, dem);
writeln (‘Tong cac so chia het cho 3 trong day la ’, tong);
END.