дана матрица NхM, найти максимальный элемент в двух треугольниках! треугольники там где единицы! Матрица обязательно квадратная! (1)(0)(0)(0)(0)(0)(0)(1) (1)(1)(0)(0)(0)(0)(1)(1) (1)(1)(1)(0)(0)(1)(1)(1) (1)(1)(1)(1)(1)(1)(1)(1) (1)(1)(1)(1)(1)(1)(1)(1) (1)(1)(1)(0)(0)(1)(1)(1) (1)(1)(0)(0)(0)(0)(1)(1) (1)(0)(0)(0)(0)(0)(0)(1)
Tan
14.05.2007 19:29
Ну вот черновик, прога рисует 2 треугольника, заполяет их случайными числами и считает максимальный элемент среди 2х треугольников. Надеюсь я верно понял условие.
Program Array_Fill; uses crt; Const N=10; Var MyArr:Array[1..N,1..N] of Integer; i,j,max:Integer; L,r:Integer; Begin Clrscr; randomize; For i:=1 to N do For j:=1 to N do MyArr[i,j]:=0; max:=(N-1) div 2; L:=1; r:=N; For i:=1 to N do Begin For j:=1 to L do MyArr[i,j] := random (20) - 10; For j:=R to N do MyArr[i,j] := random (20) - 10; If (i-1<max) then Begin Inc(L); Dec®; end else Begin If not(((N-2)mod 2=0)and(i=max+1)) then Begin Inc®; Dec(L); end; end; end; max := MyArr[1,1]; For i:=1 to N do Begin For j:=1 to N do Begin If max <= MyArr[i,j] then max := MyArr[i,j]; Write(MyArr[i,j]:4); end; Writeln; end; writeln; writeln ('Max ',max); readln; end.
joker1989
14.05.2007 19:46
Спасибо, только там не нули должны быть, а любые числа! А можно чтобы треугольники цветом выделились, а максимальный элемент другим цветом в треугольнике?
Tan
14.05.2007 19:53
Конечно можно, а нули я для наглядности поставил, ты осилишь или сделать ? И я переменную max взял для двух целей, изначально она показывает рубеж заполнения, а потом как максимальный элемент, может довольно неудачно выбрал.
joker1989
14.05.2007 20:07
Если не трудно, то сделай пожалуйста!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.