Ngày tải lên :
09/09/2013, 23:10
... write('[',i,',',j,']');
writeln;
writeln;
max:=a[1,1];
for i:=1 to m do for j:=1 to n do
if max < a[i,j] then max:=a[i,j];
writeln;
writeln('max= ',max);
writeln;
write('do la so ... Bai 1
program max_min; {Cho ma tram, hay tim
phan tu be nhat, lon nhat cua day va cho
biet
vi tri cua chung trong ma tran}
uses crt;
var a:array [1 50,1 50] of integer;
m,n,i,j,min,max:integer;
begin
clrscr;
write('nhap ... write(c[i,j]:5);
writeln;
writeln;
end;
end;
procedure tinh_tich_hai _ma_ tran;
var d:array[1 50,1 50] of integer;
k:integer;
begin
writeln('Tich ma tran mot va hai la ma
tran bon ,ma tran bon bang');
for i:=1 to m...