В матрице n-го порядка найти максимальный элемент среди элементов

@Mr.Spock · Регистрация: 31.03.2010

Author24 — интернет-сервис помощи студентам

В матрице n-го порядка найти максимальный элемент среди элементов, лежащих выше побочной диагонали, и минимальный среди элементов, лежащих ниже главной диагонали.

@Puporev · 02.04.2010, 07:14

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j,imx,jmx,imn,jmn:byte;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(40)+10;
     write(a[i,j]:4);
    end;
   writeln;
 end;
writeln;
imx:=1;jmx:=1;
for i:=1 to n do
for j:=1 to n -i do
if a[i,j]>a[imx,jmx] then
 begin
  imx:=i;
  jmx:=j;
 end;
writeln('Максимальный выше побочной - a[',imx,',',jmx,']=',a[imx,jmx]);
imn:=2;jmn:=1;
for i:=2 to n do
for j:=1 to i-1 do
if a[i,j]<a[imn,jmn] then
 begin
  imn:=i;
  jmn:=j;
 end;
writeln('Минимальный ниже главной - a[',imn,',',jmn,']=',a[imn,jmn]);
readln
end.

@Mr.Spock 1 / 1 / 0 Регистрация: 31.03.2010 Сообщений: 33
		1
	В матрице n-го порядка найти максимальный элемент среди элементов 02.04.2010, 01:24. Показов 1830. Ответов 1 Метки нет (Все метки) В матрице n-го порядка найти максимальный элемент среди элементов, лежащих выше побочной диагонали, и минимальный среди элементов, лежащих ниже главной диагонали. 0

	02.04.2010, 07:14

В матрице n-го порядка найти максимальный элемент среди элементов

Решение