Pascal
Nhập vào một ma trận vuông góc cấp n.Hãy in ra ma trận
1.Ma trận vừa nhập
2.tìm ptử nhỏ nhất trong từng hàng
3.đếm xem trong ma trận có bn số 0
4.đếm số lần xhiện của số x trong ma trận và vtri của chúng(x dc nhập từ bàn phím)
5.tính tổng các phân tử lớn nhất của mỗi hàng
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!
program oken;
uses crt;
var a: array [1..100,1..100] of integer;
vtc,vth: array [1..100] of integer;
n,i,j,min,dem,x,k,s,max: longint;
begin
clrscr;
writeln(‘–Nhap mang–‘);
write(‘Nhap do dai vuong goc: ‘); readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write(‘A[‘,i,’,’,j,’]: ‘);
readln(a[i,j]);
end;
writeln(‘–Mang vua nhap–‘);
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],’ ‘);
writeln;
end;
writeln(‘–Phan tu nho nhat tung hang–‘);
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 nhat nhat hang ‘,i,’, cot ‘,j,’: ‘,min);
end;
dem:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=0 then
dem:=dem+1;
writeln(‘So lan xuat hien cua so 0: ‘,dem);
writeln(‘–Dem so lan X xuat hien–‘);
write(‘Nhap so x: ‘); readln(x);
dem:=0; k:=0;
for i:=1 to n do
for j:=1 to n do
if a[i,j]=x then
begin
k:=k+1;
dem:=dem+1;
vtc[k]:=i;
vth[k]:=j;
end;
writeln(‘So lan ‘,x,’ xuat hien: ‘,dem);
writeln(‘Cac vi tri lan luot xuat hien cua ‘,x,’: ‘);
for i:=1 to k do
writeln(‘ ‘,vtc[i],’,’,vth[i]);
s:=0;
for i:=1 to n do
begin
max:=a[i,1];
for j:=2 to n do
if max< a[i,j] then
max:= a[i,j];
s:=s+max;
end;
writeln(‘Tong cac phan tu lon nhat cua moi hang: ‘,s);
readln;
end.