Консультация № 112757
07.12.2007, 06:23
0.00 руб.
0 1 1
Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в заштрихованной( тоесть где единицы) части матрицы по рисунку

0 0 0 0 1
0 0 0 1 1
0 0 1 1 1
0 0 0 1 1
0 0 0 0 1
сделать в pascal 7.0

Обсуждение

давно
Старший Модератор
31795
6196
07.12.2007, 14:35
общий
это ответ
Здравствуйте, Николаев Денис!

Смотрте приложение.
Удачи!

Приложение:
program q112757; const n=5; var a:array[1..n,1..n]of integer; b,c,d,e:integer; begin randomize; {создаем матрицу и выводим} for b:=1 to n do begin for c:=1 to n do begin a[b,c]:=random(100); write(a[b,c]:5); end; writeln; end; {настраиваемся на матрицу} d:=a[1,n]; e:=a[1,n]; {начинаем поиск} for b:=1 to n do for c:=1 to n do if(c>=b)and(b>=(n-c+1))then begin if(d>a[b,c])then d:=a[b,c]; if(e<a[b,c])then e:=a[b,c]; end; {выводим результат} writeln(‘min:‘,d:5); writeln(‘max:‘,e:5); end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа