em cam on thay nhieu

thay oi thay chi cho em huong lam bai tap tim ucln cua 1 day voi a

{so am lon nhat trong day va vi tri cu no}
procedure maxam(a:mang;n:integer);
var maxa:real;
begin
maxa:=-32767;
for i;=1 to n do
if(maxa<a[i]) and (a[i]<0) then
maxa:=a[i];
writeln('phantu am lon nhat cua day la:',maxa);
write('o cac vi tri la:') ;
for i:=1 to n do
if a[i]= maxa then
write(a[i]:4);
end;

proceure mangtb(a:matran;n:integer);
var c:mang;
tbc:real;
k,i,j,tg:integer;
begin
for i:=1 to n do
begin
tg:=0;
for j:=1 to n do
begin
tg:=tg+a[i,j];
end;
tbc:=tg/n;
b[i]:=tbc;
end;
write('trung binh cot cu dong trong mang la:',tbc);
for k:=1 to n do
write(b[k]:4:1,'');
end;

thay co khoe khong a.

thầy à.thầy giup en sua bai nay voi a.