program baitapmang;

uses crt;

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

       n,i,max:integer;

begin

     clrscr;

     write('Nhap so luong phan tu cua mang: ');   readln(n);

     for i:=1 to n do

          begin

               write('Phan tu thu ',i,': ');     readln(A[i]);

          end;

     write('Mang vua nhap la: ');

     for i:=1 to n do

          write(A[i],' ');

     writeln;

     write('Cac so chan o vi tri le la: ');

     for i:=1 to n do

          if (i mod 2=1) and (A[i] mod 2=0) then write(A[i],' ');

     writeln;

     max:=A[1];

     for i:=2 to n do

          if A[i]>max then max:=A[i];

     write('So lon nhat la ',max,' o cac vi tri: ');

     for i:=1 to n do

          if A[i]=max then write(i,' ');

     readln;

end.

Xin hay nhất

uses crt;
var i,max,n:longint; a:array[1..100000]of longint;
begin
clrscr;
    writeln('Nhap vao mang:');
    write('n (n<100)=');readln(n);
    for i:=1 to n do
       begin
          write('a[',i,']=');readln(A[i]);
       end;
    write('a) ');
    for i:=1 to n do write(a[i],' '); writeln;
    write('b) Cac phan tu chan co chi so le: ');
    for i:=1 to n do
       if (a[i] mod 2=0)and(i mod 2=1) then write(a[i],' ');
    for i:=1 to n do if a[i]>max then max:=a[i];
    writeln;
    write('a)Max= ',max,' va chi so chua no la: ');
    for i:=1 to n do if a[i]=max then write(a[i]);
readln
end.