-program CTNMT;

uses crt;

var n,i,dem: longint;

A: array [1..1000] of longint;

Begin

Writeln('Ban hay N'); Readln(n);

for i:=1 to n do

begin

Writeln('Nhap so thu ',i); Readln(a[i]);

end;

Writeln('In ra mang:');

for i:1 to n do Write(a[i]:5);

writeln;

Writeln('In ra so chan trong mang');

for i:= 1 to n do

begin

if (a[i] mod 2) = 0 then Write(a[i]:5)

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

end;

writeln('so so nguyen am la: ',đem);

REadln;

end.

not copy 

@ga nguyen 

uses crt;
var a:array[1..1000000]of longint; i,n:longint;
function tb(m:longint):real;
   var i:longint;
   begin
      for i:=1 to n do
         tb:=TB+A[i];
         tb:=tb/n;
   end;
function nt(m:longint):longint;
   var i:longint;
   begin
      nt:=a[1];
      for i:=1 to n do
         if (m=0)and(nt<a[i]) then nt:=a[i] else
         if (m=1)and(nt>a[i]) then nt:=a[i];
   end;
begin
clrscr;
   write('n=');readln(n);
   for i:=1 to n do
      begin
         write('a[',i,']=');readln(a[i]);
      end;
   writeln('Be nhat: ',nt(1));
   writeln('Lon nhat: ',nt(0));
   writeln('Trung binh cong: ',tb(0):0:5);
readln
end.