Program bien_mang;

Uses Crt;

Var i, n, s:integer;

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

Begin

Clrscr;

Write('So phan tu la: '); readln(n);

s:=0;

For i:=1 to n do

Begin

Write('Nhap so thu ',i); readln(a[i]);

If a[i] mod 2 = 0 then s:=s+a[i];

End;

Writeln('Cac so vua nhap la');

For i:=1 to n do write(a[i],' ');

Writeln('Tong cac so chan la',s);

Readln;

End.

uses crt;
var a:array[1..1000] of real;
      max,min:extended;
      n,i:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap phan tu thu ',i,': '); readln(a[i]);
            end;
      max:=a[1];min:=a[1];
      for i:=2 to n do
            begin
                  if a[i]>max then max:=a[i];
                  if a[i]<min then min:=a[i];
            end;
      writeln('Max: ',max:0:2);
      write('Min: ',min:0:2);
      readln;
end.