bạn copy bài 1 zô r chạy nha, mình sửa hết rồi

program bai_1;

uses crt;

var i,n,m,s:integer;

begin

clrscr;

S:=0; i:=0;

write('nhap n='); readln(n);

for i:=1 to n do

 begin

  write('nhap m='); readln(m);

   S:=S+m;   { lúc trước: S:=S=m; }

 end; 

{lúc trước: S:=S/n; sai vì số thực chia không được}

writeln('trung binh cong cua n la'; S/n:8:2);

readln

end.

Bài 2: bạn đúng rồi nhưng mình sẽ làm hơi khác xíu

Chương trình

program timmax;

uses crt;

var m,n,i,max:integer;

begin

clrscr;

write('Nhap so luong phan tu n: ');   readln(n);

write('Nhap so thu nhat: ');  readln(m);

max:=m;

for i:=2 to m do

 begin

  write('Nhap so thu ',i,': ');   readln(m);

  if m>max then max:=m;

 end;

write('So lon nhat la: ',max);

readln

end.

S/n là  sửa thành s/n nha 

còn mik thấy đuk mà