giúp em giải 2 bài dưới với ạ. giải chi tiết với ạ cho tệp songuyen.inp chứa các số nguyên. hãy đếm có bao nhiêu số chia hết cho 3 và tính tổng của chúng . kết quả lưu vào tệp songuyen.out gồm 2 dòng : dòng đầu là các số nguyên chia hết cho 3 dòng tiếp là số lượng chia hết cho 3 và tổng của chúng cũng dạng bài trên thay số 3 bằng số 5

uses crt;

var a:array[1..1000]of byte;

      n,dem,tong,i:integer;

begin

clrscr;

write('Nhap vao so phan tu  cua day:');readln(n);

for i:=1 to n do

begin

write('Nhap vo phan tu thu',i,'cua day:');readln(a[i]);

end;

dem:=1;

tong:=1;

write('Cac so chia het cho 3 la: ');

for i:=i to n do if a[i] mod 3=0 then

begin

tong :=tong + a[i];

dem:=dem+1;

write(a[i],',');

end;

writeln('so cac so chia het cho 3 la ',dem);

write('tong cac so chia het cho 3 la ',tong);

readln

end.

chỉ cần thay số 3 thành số 5 là đc nhé

nhớ cho mik vote 5 sao và trả lời hay nhất nhé