Program baitap;

Uses crt;

Var A:array[1..100] of integer;

      B,L,C,i,dem:integer;

Begin

Clrscr;

B,L,C,dem:=0;

For i:=1 to 100 do

     Begin

     Write('A[',i,']=');

     Readln(A[i]);

     If A[i] mod 7=0 then B:=B+A[i];

     If A[i] mod 2=1 then L:=L+A[i] else

                                                      Begin

                                                      dem:=dem+1;

                                                      C:=C+A[i];

                                                      End;

    End;

Writeln('Tong cac so boi cua 7:',B);

Writeln('Tong cac so le:',L);

Writeln('Trung binh cong cac so chan:', C/dem:9:2);

Readln

End.

program sksk;

uses crt;

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

      i, n, dem, s1, s2, s3  : integer;

      tb : real;

begin

clrscr;

s1 := 0;

s2 := 0;

dem := 0;

write('nhap so luong phan tu co trong mang :');readln(n);

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' : ');readln(a[i]);

end;

for i := 1 to n do

begin

if a[i] mod 7 = 0 then s1 := s1 + a[i];

if a[i] mod 2 <> 0 then s2 := s2 + a[i];

if a[i] mod 2 = 0 then

begin

s3 := s3 + a[i];

dem := dem + 1;

end;

end;

tb := s3/dem;

writeln('tong cac so la boi cua 7 la :', s1);

writeln('tong cac so le la :', s2);

writeln('trung binh cong cac so chan la :', tb:8:2);

readln

end.

* * * ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** *

C ++

#include <iostream>
using namespace std;
int main()
{
    int a[100],n, sum = 0, sum1 = 0, sum2 = 0, dem = 0  ;
    cout<<" nhập số lượng phần tử có trong mảng :";
    cin>> n;
    for ( int i = 1; i <= n; i++){
         cout<<"nhập phần thứ  " << i <<" : ";
         cin>> a[i];
         if (a[i] % 7 ==  0){
              sum += a[i];
         }
         if (a[i] % 2 != 0 ){
              sum1 += a[i];
              
         } 
         if (a[i] % 2 == 0 ){
              sum2 += a[ i ];
              dem +=  1;
         }
    }
         cout<<" tổng  các số bội là 7 là :"<< sum<< endl;
         cout<<" tổng các số lẻ là "<< sum1 << endl;
         cout<<" trung bình cộng các số chắn là :"<< sum2/dem<< endl;
         
    
    return 0;

}