program mangm;
uses crt;
var M:array[1..10000] of integer;
    n,i,d:integer;
    t:longint;
begin
 clrscr;
 write('Nhap so luong phan tu: ');   readln(n);
 writeln('Nhap tung phan tu cua day: ');
 for i:=1 to n do
   begin
     write('M[',i,']: ');    readln(M[i]);
   end;
 write('Cac phan tu cua day la: ');
 {in cac phan tu cung 1 hang}
 for i:=1 to n do
   write(M[i],' ');
 writeln;
 d:=0;
 write('In cac 10 phan tu trong 1 hang: ');
 for i:=1 to n do
   begin
     if d mod 10=0 then writeln;
     write(M[i],' ');
     inc(d);
   end;
 writeln;
 t:=0;
 for i:=1 to n do
   if M[i] mod 2=1 then t:=t+M[i];
 write('Tong cac so le cua day la: ',t);
 readln
end.

uses crt;
var m:array[1..1000000] of longint;
      n,i,s,d:longint;
begin
      clrscr;
      write('Nhap so luong phan tu: '); readln(n);
      for i:=1 to n do
            begin
                  write('Nhap gia tri phan tu thu ',i,': '); readln(m[i]);
            end;
      write('- Cac phan tu cua mang: ');
      for i:=1 to n do write(m[i],' '); writeln;
      write('- 10 phan tu tren mot dong: ');
      for i:=1 to n do
            begin
                  if d mod 10=0 then writeln;
                  write(m[i],' ');   
                  inc(d);
            end;
      writeln;
      for i:=1 to n do if i mod 2=1 then inc(s,m[i]);
      writeln('- Tong cac so le: ',s);
      readln;
end.