b6:

uses crt;
var a:array[1..500] of integer;
    n,i,t:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    for i:=1 to n do
    begin 
        write('a[',i,'] = ');readln(a[i]);
        if a[i] mod 2=0 then t:=t+a[i];
    end;
    write('tong cac so chan = ',t);
    readln
End.

b7:

uses crt;
var a:array[1..500]of integer;
    n,i,max:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    for i:=1 to n do
    begin
        write('a[',i,'] = ');readln(a[i]);
    end;
    max:=a[1];
    for i:=1 to n do if a[i]>max then max:=a[i];
    write('max: ',max);
    readln
End.

b8:

uses crt;
var a:array[1..500]of integer;
    n,i,min:integer;
Begin
    clrscr;
    write('n = ');readln(n);
    for i:=1 to n do
    begin
        write('a[',i,'] = ');readln(a[i]);
    end;
    min:=a[1];
    for i:=1 to n do if a[i]<min then min:=a[i];
    write('min: ',min);
    readln
End.