program phuongt;
uses crt;
  var A: array[1..200] of integer;
        i, n, max, min, s: integer;
begin
           clrscr;
           write('Nhap n = '); readln(n);
           for i:=1 to n do
           begin
                       write('Nhap A[', i, '] = '); readln(A[i]);
           end;
           write('Mang so nguyen vua nhap: ');
           for i:=1 to n do write(A[i]:3); 
           writeln;
           write('2. - La so chan: ');
           for i:=1 to n do if A[i] mod 2 = 0 then write(A[i]:3);
           write('- La so le: ');
           for i:=1 to n do if A[i] mod 2 = 1 then write(A[i]:3);
           write('- La so duong: ');
           for i:=1 to n do if A[i]>0 then write(A[i]:3);
           write('- La so am: ');
           for i:=1 to n do if A[i]< then write(A[i]:3);
           write('- La so chia het cho 3: ');
           for i:=1 to n do if A[i] mod 3 = 0 then write(A[i]:3);        
           write('3. - Chi so co phan tu la so chan: ');
           for i:=1 to n do if A[i] mod 2 = 0 then write(i:3);
           write('- Chi so co phan tu la so le: ');
           for i:=1 to n do if A[i] mod 2 = 1 then write(i:3);
           write('- Chi so co phan tu la so duong: ');
           for i:=1 to n do if A[i]>0 then write(i:3);
           write('- Chi so co phan tu la so am: ');
           for i:=1 to n do if A[i]< then write(i:3);
           write('- Chi so co phan tu la so chia het cho 3: ');
           for i:=1 to n do if A[i] mod 3 = 0 then write(i:3);
           max:=A[1];
           min:=A[1];
           for i:=1 to n do
           begin
                       if max<A[i] then max:=A[i];
                       if min>A[i] then min:=A[i];
           end;
           write('4. - So lon nhat cua mang la: ', max);
           write('- So nho nhat cua mang la: ', min);
           max:=A[1];
           min:=A[1];
           for i:=1 to n do
           begin
                       if max<A[i] then max:=i;
                       if min>A[i] then min:=i;
           end;
           write('5. - Chi so chua so lon nhat cua mang la: ', max);
           write('- Chi so chua so nho nhat cua mang la: ', min);
           s:=0;
           for i:=1 to n do s:=s+A[i];
           write('Tong cac phan tu cua mang la: ', s);
           readln
end.

uses crt;

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

i,n,min,max,c1,c2: integer;

s: longint;

begin

clrscr;

write ('nhap n: ');  readln (n);

for i:=1 to n do

begin

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

s:=s+a[i];

end;

write ('1/ mang vua nhap: ');

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

writeln ('2/');

write ('cac phan tu la so chan: ');

for i:=1 to n do if a[i] mod 2<>0 then write (a[i],'  ');

write ('cac phan tu la so le: ');

for i:=1 to n do if a[i] mod 2=0 then write (a[i],'  ');

write ('cac phan tu la so duong: ');

for i:=1 to n do if a[i]>0 then write (a[i],'  ');

write ('cac phan tu la so am: ');

for i:=1 to n do if a[i]<0 then write (a[i],'  ');

write ('cac phan tu la so chia het cho 3: ');

for i:=1 to n do if a[i] mod 3=0 then write (a[i],'  ');

min:=a[1];

max:=a[1];

for i:=1 to n do

begin

if a[i]>max then begin max:=a[i]; c1:=i; end;

if a[i]<min then begin min:=a[i]; c2:=i  end;

end;

writeln ('cau 4 va 5/so lon nhat la a[',c1,']: ',max);

writeln ('                  so nho nhat la: a[',c2,']: ',min);

writeln ('6/ tong la: ',s);

readln;

end.