Ngày tải lên :
06/02/2015, 22:00
... Readln(x); dem:=0; Writeln('Vi tri cua x 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; Writeln('So lan xuat hien cua x mang A la: ',dem); ... writeln; write('Tong cac so chan co 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; BEGIN ... write('Tong ',m,' chu so cuoi cua so vua nhap = ',tong); readln; END Bài 3: Chương trình Pascal VAR tep1,tep2:TEXT; i,n,s:INTEGER; a:ARRAY[1 100] OF INTEGER; BEGIN assign(tep1,'D:\BT.txt'); rewrite(tep1);...