матриц полегче но не очень Опции

[trew]

дана матрица вещественно численных А(10, 10) найти число
10
с=∑ мах А(i, j) распечатать 1<=i<=10
1

[Michael_Rybak]

Ясно, понял.

отлично кстати, без обид, вот на этом замечательном форуме есть ветка "центр помощи", в которой как раз приветствуется, когда полностью решают за кого-то. там тебе только "спасибо" будут говорить. и на всякий случай: у меня тут никаких уколов и намеков, тебе действительно может быть интересно и там, и здесь, и я только потому и говорю.

[mind abuse]

отлично кстати, без обид, вот на этом замечательном форуме есть ветка "центр помощи", в которой как раз приветствуется, когда полностью решают за кого-то. там тебе только "спасибо" будут говорить. и на всякий случай: у меня тут никаких уколов и намеков, тебе действительно может быть интересно и там, и здесь, и я только потому и говорю.

Хи)) как раз в данный момент хотел скопировать оттуда функцию поиска максимального/минимального элемента массива, которая была бы именно помощью trew, а не сгустком кода.

Копирую, с позволения:

function MaxElement(iArray : TArray) : integer;
var
  i : integer;
  MaxE : integer;
begin
  MaxE := iArray[1];
  for i := 2 to MAX do
    if iArray[i] > MaxE then
      MaxE := iArray[i];
  MaxElement := MaxE;
end;