# Nhập mảng A từ bàn phím
n = int(input("Nhập số lượng phần tử của mảng A: "))
A = []
for i in range(n):
    A.append(int(input("Nhập phần tử thứ {} của mảng A: ".format(i+1))))

# Tính trung bình cộng các phần tử chia hết cho 3 và 5
sum_35 = 0
count_35 = 0
for num in A:
    if num % 3 == 0 and num % 5 == 0:
        sum_35 += num
        count_35 += 1
if count_35 > 0:
    tb_35 = sum_35 / count_35
    print("Trung bình cộng các phần tử chia hết cho 3 và 5 trong mảng A là:", tb_35)
else:
    print("Không có phần tử nào chia hết cho cả 3 và 5 trong mảng A")

# In ra các phần tử chia hết cho M và tính tổng các phần tử chia hết cho M
M = int(input("Nhập giá trị M: "))
sum_M = 0
count_M = 0
for num in A:
    if num % M == 0:
        print(num, end=" ")
        sum_M += num
        count_M += 1
print("\nTổng các phần tử chia hết cho M trong mảng A là:", sum_M)

program bt;
uses crt;
var i, s, sa, sd, sc, sl, da, dd, dc, dl : integer;
a : array[1..50] of integer;
begin
        clrscr;
        for i:=1 to 10 do begin
         write('Nhap phan tu thu ',i,': '); readln(a[i]);
        end;
        write('Day so vua nhap la: ');
        for i:=1 to 10 do write(a[i],', ');
        writeln;
        s := 0; sa := 0; sd := 0; sc := 0; sl := 0; da := 0; dd := 0; dc := 0; dl := 0;
        for i:=1 to 10 do begin
         s := s + a[i];
         if (a[i] > 0) then begin sd := sd + a[i]; dd := dd + 1 end;
         if (a[i] < 0) then begin sa := sa + a[i]; da := da + 1 end;
         if (a[i] mod 2 = 0) then begin sc := sc + a[i]; dc := dc + 1; end
         else begin sl := sl + a[i]; dl := dl + 1 end;
        end;
        writeln('Tong cac phan tu trong mang la ',s);
        writeln('Trung binh cong cac phan tu trong mang la ',s/10);
        writeln('Tong cac so am la ',sa);
        writeln('Tong cac so duong la ',sd);
        writeln('Tong cac so chan la ',sc);
        writeln('Tong cac so le la ',sl);
        writeln('So cac so am la ', da);
        writeln('So cac so duong la ', dd);
        writeln('So cac so chan la ', dc);
        writeln('So cac so le la ', dl);
        readln
end.

giúp mình với mai mình thi rồi mn ơi :(((

#include <bits/stdc++.h>

using namespace std;

long long i,n,x,t;

int main()

{

n=500;

t=0;

for (i=1; i<=n; i++)

{

cin>>x;

t=t+x;

}

cout<<t<<endl;

cout<<fixed<<setprecision(2)<<(t*1.0)/(500*1.0);

return 0;

}

uses crt;

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

i,n,t:integer;

tb:real;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

t:=0;

for i:=1 to n do t:=t+a[i];

writeln(t/n:4:2);

tb:=t/n;

for i:=1 to n do 

  if a[i]<tb then write(a[i]:4);

readln;

end.

program PSMCG;

uses crt;

const

     size = 7;

var

     arr: array[1..size] of integer;

     i, sum, min, temp: integer;

     avg: real;

begin

     clrscr;

     writeln('Nhap vao day so nguyen khong am gom 7 phan tu: ');

     for i := 1 to size do

     begin

          readln(arr[i]);

     end;

     writeln('Cac phan tu trong day la: ');

     for i := 1 to size do

     begin

          write(arr[i], ' ');

     end;

     writeln();

     sum := 0;

     for i := 1 to size do

     begin

          sum := sum + arr[i];

     end;

     writeln('Tong cac phan tu la: ', sum);

     avg := sum / size;

     writeln('Trung binh cac phan tu la: ', avg:0:2);

     min := arr[1];

     for i := 2 to size do

     begin

          if(arr[i] < min) then

          begin

               min := arr[i];

          end;

     end;

     writeln('Gia tri nho nhat la: ', min);

     for i := 1 to size - 1 do

     begin

          for j := i + 1 to size do

          begin

               if(arr[i] < arr[j]) then

               begin

                    temp := arr[i];

                    arr[i] := arr[j];

                    arr[j] := temp;

               end;

          end;

     end;

     writeln('Cac phan tu da sap xep theo thu tu giam dan:');

     for i := 1 to size do

     begin

          write(arr[i], ' ');

     end;

     readln;

end.