[Help] Các thao tác trên xâu.

[vudinh]

Var f1,f2:text;
i,j,N,T,Tg,dc,dl:integer;
A:array[1..100] of Integer;

 procedure  Nhap(Var N:integer);
 Var i:integer;
 Begin
   For i:=1 to N do Read(f1,i);
 End;
 procedure Tong(N:integer);
 Var i,T:integer;
 Begin
 T:=0;
    For i:=1 to N do T:=T+i;
   writeln(f2,'Tong cac phan tu trong day la:',T);
 End;
 {Sap xep mang theo chieu giam dan

Thuat toan sap xep noi bot}
procedure sapxep(N:integer);
Var i:integer;
Begin
writeln(f2,'Sap xep day giam dan:');
For i:=N downto 1 do write(f2,i:3);
writeln(f2);
End;
procedure dem(n:integer);
Begin
dc:=0;dl:=0;
For i:=1 to N do
 if i  mod 2 = 0 then dc:=dc+1 else dl:=dl+1;
 writeln(f2,'So phan tu chan la:',dc,' ', 'So phan tu le la:',dl);
End;
BEGIN
 assign(f1,'D:\11A2.TXT');
 Reset(f1);
 assign(f2,'D:\11A3.TXT');
 Rewrite(f2);
 Readln(f1,N);
 Nhap(N);
 sapxep(N);
 Tong(N);
 Dem(N);
 close(f1);
 close(f2);
 End.