uese crt;

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

m,i,s,max,b: integer;

begin

clrscr;

writeln('Nhap so phan tu day M:'); readln(m);

for i:=1 to m do begin

writeln('Nhap so thu',i,':'); readln(a[i]); end;

writeln('Day so le la:');

for i:= 1 to m do

if a[i] mod 2=1 then write(a[i]:4); 

while i>m do  begin

i:=i+1;

if a[i] mod 2=1 then s:=s+a[i];

end;

writeln('Tong cac so le duoc in ra la:',s);

s:=1; max:=a[1]; i:=0;

for i:= 1to m do

if max<a[i] then begin max:=a[i];

b:=i;

end;

writeln('so lon nhat trong day la:',max);

writeln('Vi tri là thu:',b);

readln;

end.

program ct;

uses crt;

var i,S,n,Max:integer;

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

begin

clrscr;

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

        for i:=1 to n do

begin

     write('nhap mang M[',i,']:='); readln(M[i]);

end;

   for i:=1 to n do

       if M[i] mod 2=1 then writeln('so le la:',M[i]);

   S:=0; i:=0;

      while i>n do

begin

    i:=i+1;

    if M[i] mod 2=1 then S:=S+M[i];

end;

  writeln('tong la:',S);

    Max:=M[1];

      for i:=2 to n do

        if Max<M[i] then Max:=M[i];

  writeln('gia tri lon nhat la:',Max);

  writeln('vi tri la:');

     for i:=1 to n do

       if M[i]= Max then write(i,'  ');

readln

end.