Question

Viết chương trình tạo mảng 1 chiều gồm n ptử chứa các số nguyên ngẫu nhiên <100. Đưa ra màn hình tổng các chữ số bội của 3? Giúp mình với!

Answer 1

program boi_cua_3;

uses crt;

var a:array[1..100] of integer;

n,i:byte;

s:integer;

begin

clrscr;

write('nhap so luong phan tu cua mang: ');

readln(n);

for i:= 1 to n do

begin

write('nhap phan tu thu [',i,']= ');

readln(a[i]);

end;

s:=0;

for i:= 1 to n do

if a[i] mod 3 = 0 then s:=s+a[i];

writeln('vay tong cac so la boi cua 3 la: ',s);

readln;

end.