Скачиваний:
288
Добавлен:
04.03.2014
Размер:
2.54 Кб
Скачать
PROGRAM matriza;
const nn=1;
mm=9;
var
w:array[nn..mm,nn..mm] of real;
n,m:nn..mm;
amin,amax:real;
i,j,imax,jmax,imin,jmin:integer;

begin
{ repeat}
writeln('‚ўҐ¤ЁвҐ а §¬Ґа­®бвм ¬ ваЁжл');
readln(n,m);
writeln('ђ §¬Ґа­®бвм ¬ ваЁжл: Ї® бва®Є ¬ n= ',n:3);
writeln(' Ї® бв®«Ўж ¬ m= ',m:3) ;

{ until (n<=10) and (m<=10) and (n>=1) and (m>=1);}

writeln('‚ўҐ¤ЁвҐ ¬ ваЁжг');

for i:=1 to n do
for j:=1 to m do
begin
read(w[i,j]);
IMAX:=2; JMAX:=1;
iMIN:=1; JMIN:=2;
amax:=w[IMAX,JMAX];
amin:=w[iMIN,JMIN];
end;

for i:=1 to n do
for j:=1 to m do
BEGIN
if j<i then
if w[i,j]>amax then
begin
amax:=w[i,j];
imax:=i;
jmax:=j;
end;

if j>i then
if w[i,j]<amin then
begin
amin:=w[i,j];
imin:=i;
jmin:=j;
end;
END;
readln;

{ Џ…—Ђ’њ €‘•Ћ„ЌЋ‰ € ЏЋ‹“—…ЌЌЋ‰ ЊЂ’ђ€–›}
WRITELN;

writeln;

IF (w[IMAX,JMAX]=w[IMIN,JMIN])
THEN
begin
WRITELN('’.Є. §­ зҐ­Ёп ¬ Єб. Ё ¬Ё­. в®зҐЄ а ў­л');
WRITELN(' Њ€Ќ. = ',w[imin,jmin]:3:1,' imin= ',imin,' jmin= ',jmin);
writeln(' ЊЂЉ‘.= ',w[imax,jmax]:3:1,' imax= ',imax,' jmax= ',jmax);
writeln('в® Ёб室­ п ¬ ваЁж  Ё¬ҐҐв ўЁ¤:');
for i:=1 to n do
begin
for j:=1 to m do
write(w[i,j]:3:1,' ');
writeln;
end
end
ELSE
begin
WRITELN('’.Є. §­ зҐ­Ёп ¬ Єб. Ё ¬Ё­. в®зҐЄ ­Ґ а ў­л');
WRITELN(' Њ€Ќ. = ',w[imin,jmin]:3:1,' imin= ',imin,' jmin= ',jmin);
writeln(' ЊЂЉ‘.= ',w[imax,jmax]:3:1,' imax= ',imax,' jmax= ',jmax);
writeln('ЋЎ­г«пҐ¬ нвЁ в®зЄЁ Wmax= ',W[IMAX,JMAX]:3:1,' ','Wmin= ',W[IMIN,JMIN]:3:1);
writeln('Ё Ї®«гз Ґ¬:');
writeln;
writeln('Ёб室­ п ¬ ваЁж ',' ':5,'Ї®«г祭­ п ¬ ваЁж ');
for i:=1 to n do
begin
w[imax,jmax]:=amax;
w[imin,jmin]:=amin;
for j:=1 to m do
write(w[i,j]:3:1,' ');

for j:=1 to m do
begin
w[imax,jmax]:=0.0;
w[imin,jmin]:=0.0;
write(' ':10);
for j:=1 to m do
write(w[i,j]:3:1,' ');
writeln;
end
end;
end;
READLN
end.

Соседние файлы в папке Alex