Tin học Kiểu dữ liệu tệp pascal 11

[mai562002]

[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.

Mọi người giúp em câu 2 với ạ, em cảm ơn!!

 

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

View attachment 110438
Mọi người giúp em câu 2 với ạ, em cảm ơn!!

Var
  fi,fo:text;
  a:array[1..100] of integer;
  i,n,d,max:integer;
Begin
  Assign(fi,'dulieu.inp');reset(fi);
  Assign(fo,'dulieu.out');rewrite(fo);
   Read(fi,n);
   For i:=1 to n do  read(fi,a[i]);
   max:=a[1];
   For i:=1 to n do
     Begin
        If a[i] mod 2<>0 then write(fo,a[i]);
        If a[i]>max then max:=a[i];
    end;
    Writeln(fo,max);d:=0;
    For i:=1 to n do If a[i]=max then d:=d+1;
   Writeln(fo,d);
   Close(fi);Close(fo);
End.