. write('Tong cac so chan co trong day la: ',s); close(tep2); readln; END. Bài 4: Chương trình Pascal USES Crt; TYPE Mang = ARRAY[1 10,1 10] OF INTEGER; VAR A:Mang; m,n,i,j,x,dem,S,max:INTEGER; . Readln(x); dem:=0; Writeln('Vi tri cua x trong mang A: '); FOR i:=1 TO m DO FOR j:=1 TO n DO IF x=A[i,j] THEN BEGIN Write(i,',',j,' ; '); dem:=dem+1; END; . Write(i,',',j,' ; '); dem:=dem+1; END; Writeln('So lan xuat hien cua x trong mang A la: ',dem); S:=0; FOR i:=1 TO m DO BEGIN Max:=A[i,1]; FOR j:=2 TO n DO IF