Matrix46. Дана целочисленная матрица размера M × N. Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце. Если такой элемент отсутствует, то вывести 0.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | program Matrix46; var a:array [1..10,1..10] of integer; M, N, i, j, i2, i3, j2,j3:Integer; begin Write('N: '); Readln(N); Write('M: '); Readln(M); for i:=1 to M do begin writeln(i,': '); for j:=1 to N do begin Write(j,' : '); Read(a[i,j]); end; end; for i:=1 to M do for j:=1 to N do begin j3:=0; for j2:=1 to N do if a[i,j]<a[i,j2] then inc(j3); i3:=0; for i2:=1 to M do if a[i,j]<a[i2,j] then inc(i3); if ((i3=M-1) and (j3=N-1)) then Writeln (j,':',i,' = ',a[i,j]); end; end. |
program matrix46;
type
matrix=array[1..8,1..8] of integer;
matr=array[1..8] of integer;
var
a,b:matrix;
c:matr;
min1,num2,max,strnum,num1,otr,pol,num,maxmin,min,prnum,sum,n,m,m1,i1,j1,i,j,k,kkk,kkk1,kkk2:integer;
prmax,proizv:real;
begin
randomize;
kkk:=1;m:=8;n:=8;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=random(-100)+50;
end;
end;
num2:=0;max:=0;kkk:=0;
for i:=1 to m do begin
max:=a[i,1];num:=0;
for j:=1 to n do begin
if a[i,j]>max then begin max:=a[i,j];num:=j end;
end;//end j
min:=a[i,num];
for j1:=1 to n do begin
if a[j1,num]<min then min:=a[j1,num];
end;
if max=min then writeln('max=min=',max) else writeln('0');
end;//end i
writeln();
for i:=1 to m do begin
for j:=1 to n do begin
write(a[i,j],' ');
end;