program sksk;

uses crt;

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

      i, n, k, s, max, dem  : integer;

begin

clrscr;

s := 0;

dem := 0;

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

write('nhap so k :');readln(k);

for i := 1 to n do

begin

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

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

if a[i] = 0 then dem := dem + 1;

end;

max := a[1];

for i := 2 to n do if a[i] > max then max := a[i] ;

writeln('tong cac phan tu la boi cua ', k ,' la :', s);

writeln('phan tu lon nhat trong mang la :', max);

writeln('so luong cac phan tu co gia tri bang 0 la :', dem);

write('cac phan tu co trong mang la :');

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

readln

end.

#include <iostream>
using namespace std;

int main()
{
    int a[100], n, tong = 0, max = 0, b = 0;
    cin >> n;
    for(int i = 0; i < n; i++)
    {
        cin >> a[i];
    }
    for(int i = 0; i < n; i++)
    {
        if(a[i] % 2 == 0)
        {
            tong += a[i];
        }
        if(max < a[i])
        {
            max += a[i];
        }
        if(a[i] == 0)
        {
            b++;
        }
    }
    cout << tong << endl;
    cout << max << endl;
    cout << b;
    return 0;
}