Tin học tin học 11 hk2

[Huỳnh Nam Huy]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

 

[Trâm Nguyễn Thị Ngọc]

Var
    fi,fo:text;min,i,n,d:integer;
    a:array[1..100] of integer;s:string;
begin
    assign(fi,'t.inp');reset(fi);
    assign(fo,'t.out');rewrite(fo);
    readln(fi,n);
    For i:=1 to n do read(fi,a[i]);
    readln(fi,s);min:=a[1];d:=0;
    For i:=1 to n do
      Begin
         If a[i]<min then begin min:=a[i];vt:=i;
         If a[i] mod 2<>0 then d:=d+1;
      end;
     For i:=1 to length(s) do  S[i]:=Upcase(s[i]);
     writeln(fo,vt);writeln(fo,d);writeln(fo,s);
     Close(fi);Close(fo);
End.

 

[Huỳnh Nam Huy]

Var
    fi,fo:text;min,i,n,d:integer;
    a:array[1..100] of integer;s:string;
begin
    assign(fi,'t.inp');reset(fi);
    assign(fo,'t.out');rewrite(fo);
    readln(fi,n);
    For i:=1 to n do read(fi,a[i]);
    readln(fi,s);min:=a[1];d:=0;
    For i:=1 to n do
      Begin
         If a[i]<min then begin min:=a[i];vt:=i;
         If a[i] mod 2<>0 then d:=d+1;
      end;
     For i:=1 to length(s) do  S[i]:=Upcase(s[i]);
     writeln(fo,vt);writeln(fo,d);writeln(fo,s);
     Close(fi);Close(fo);
End.

giúp mik bài này lun đi