đó là về tệp, bạn tham khảo rồi làm các bài còn lại nha. Chúc bạn học tốt! Có gì thì bạn cứ bình luận bên dưới nha

program bai1;

var f,g:text;

      A:array[1..10000] of longint;

      n,i:longint;

procedure kt_ndl;

begin

 Assign(f,'input.inp');

 Assign(g,'output.out');   rewrite(g);

{ $ I - } reset(f); { $ I + }     {mỗi dấu đó bạn zô pascal viết dính liền lại nha}

if IOresult<>0 then

  begin

    rewrite(f);

     reset(f);

  end; 

readln(f,n);

for i:=1 to n do

 read(f,A[i]);

 close(f);

end;

procedure xuly;

var max:longint;

 begin

  max:=A[1];

  for i:=2 to n do

   if A[i]>max then max:=A[i];

  writeln(g,max);

  write(g,'vi tri xuat hien la: ');

  for i:=1 to n do

   if A[i]=max then write(g,i,' ');

 end;

BEGIN

 kt_ndl;  xuly;

 close(g);

end.

Mình làm 4 bài đầu, cho hay nhất nhé.

uses crt;
var d:text; i,n,de,vt,max,h,dem,t:longint; a:array[1..100000]of longint;
function nt(a:longint):boolean;
var i:longint;
begin
    i:=2;
    while (a>1)and(a mod i<>0) do inc(i);
    nt:=i=a;
end;
begin
clrscr;
   assign(d,'input.pas');reset(d);
      readln(d,n);
      for i:=1 to n do read(d,a[i]);
   close(d);
   assign(d,'output.pas');rewrite(d);
      for i:=1 to n do
         begin
            if a[i]>max then begin max:=a[i]; vt:=a[i]; end;
            if a[i]<0 then begin inc(de); inc(t,a[i]); end;
            if nt(a[i]) then inc(dem);
            if (a[i]>0)and(h<>0) then begin h:=a[i]; end;
         end;
      writeln(d,'1. Max: ',max,'; Vi tri: ',vt);
      writeln(d,'2. Co ',de,' so am; Tong cac so am: ',t);
      write(d,'3. Co ',dem,' so nguyen to: ');
      for i:=1 to n do if nt(a[i]) then write(d,a[i],' '); writeln(d);
      write(d,'4. '); if h=0 then writeln(d,'Khong co') else writeln(d,h);
   close(d);
end.