B3:
Uses crt;
type matran=array[1..100,1..100] of integer;
Var a:matran;
b,c:matran;
h,k,i,j,m,n,x,y,max,min:integer;
tbc:real;
{}
procedure Nhap(Var a:matran);
Begin
For i:=1 to n do
For j:=1 to n do
Begin
Write('Nhap a[',i,',',j,']:');
Readln(a[i,j]);
End;
End;
{}
procedure Xuat(Var a:matran);
Begin
For i:=1 to n do
Begin
For j:=1 to n do
Write(a[i,j]:5);
Writeln;
End;
End;
{}
procedure Nhap1(Var b:matran);
Begin
For i:=1 to n do
For j:=1 to n do
Begin
Write('Nhap b[',i,',',j,']:');
Readln(b[i,j]);
End;
End;
{}
procedure Xuat1(Var b:matran);
Begin
For i:=1 to n do
Begin
For j:=1 to n do
Write(b[i,j]:5);
Writeln;
End;
End;
{}
Begin
clrscr;
Write('Nhap ma tran cap: ');readln(n);
Nhap(a);
Writeln('Ma tran a la:');
Xuat(a);
WRiteln;
Nhap1(b);
Writeln('Ma tran b la: ');
Xuat1(b);
Writeln('Tong hai ma tran la: ');
For i:=1 to n do
For j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
for i:= 1 to n do
begin
for j:=1 to n do
Write(c[i,j]:5);
Writeln;
end;
max:=a[1,1];
For i:=1 to n do
For j:=1 to n do
If max<a[i,j] then max:=a[i,j];
Writeln('Phan tu lon nhat cua ma tran a la: ',max);
min:=b[1,1];
For i:=1 to n do
For j:=1 to n do
If min>b[i,j] then min:=b[i,j];
Writeln('Phan tu nho nhat mang b la: ',min);
tbc:=0;
tbc:=(max+min)/2;
WRiteln('Trung binh cong hai phan tu tren la; ',tbc:5:2);
Readln;
End.