program ct;
uses crt;
var A:array[1..100,1..100] of integer;
c,h:array [1..100] of integer;
i,j,l,n,min,max,d,x:integer;
S:longint;
begin clrscr;
write('Nhap cap n cua ma tran: '); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('Nhap mang A[',i,',',j,']: '); readln(A[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to n do
write(A[i,j],:3);
end;
for i:=1 to n do
begin
min:=A[i,1];
for j:=2 to n do
if A[i,j]<min then min:=A[i,j];
writeln('So nho nhat hang ',i,', la: ',min);
end;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=0 then
inc(d);
writeln('Ma tran co ',d,' so 0');
writeln('Nhap so x: '); readln(x);
d:=0; k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=x then
begin
l:=l+1;
d:=d+1;
c[l]:=i;
h[l]:=j;
end;
writeln('Co ',d,' lan ',x,' xuat hien trong ma tran');
writeln('Cac vi tri lan luot xuat hien cua ',x,' la: ');
for i:=1 to l do
writeln(c[i],'.',h[i]:3);
S:=0;
for i:=1 to n do
begin
max:=A[i,1];
for j:=2 to n do
if A[i,j]>max then max:=A[i,j];
S:=S+max;
end;
writeln('Tong cac phan tu lon nhat cua moi hang la: ',S);
readln;
end.
Học tốt!
