Треугольная матрица

[King Kong]

Всем привет. Такую задачу нужно реализовать в Delphi: Дана треугольная матрица. Определить сумму максимальных элементов всех строк матрицы.

[ZX Spectrum-128]

Попытки самостоятельного решения есть?

[King Kong]

нет( мне любая помощь будет кстати.

[reflexx]

Начни с того что ты не знаешь как сделать, а мы поможем.

[King Kong]

как задать треугольную матрицу?

[BDA]

Да хоть:

a: array of array of real;

Воспользоваться setlength для задания размеров.

[DpolenST]

Сообщение от King Kong

как задать треугольную матрицу?

Кстати, надеюсь ты знаешь что:

Треугольная матрица — квадратная матрица, в которой все элементы ниже или выше главной диагонали равны нулю.

[reflexx]

Delphi 7 Console Application

program task_1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TMatrix = array of array of Integer;

var
  Matrix: TMatrix;
  Max: Integer;
  Summ: Integer;
  n: Integer;
  i: Integer;
  j: Integer;

begin
  WriteLn('Set size of matrix: ');
  ReadLn(n);

  SetLength(Matrix, n, n);

  {Обнуляем элементы ниже главной диагонали}
  for i:=1 to n-1 do
   for j:=0 to i-1 do
    Matrix[i, j]:=0;

  {Ввод элементов треугольной матрицы}
  for i:=0 to n-1 do
   for j:=i to n-1 do begin
     WriteLn('Set num [', i+1, ', ', j+1, ']: ');
     Read(Matrix[i, j]);
   end;

  {Поиск суммы максимальных элементов строк матрицы}
  Summ:=0;
  for i:=0 to n-1 do begin
    Max:=Matrix[i, 0];
    for j:=i to n-1 do
      if Matrix[i, j] > Max then
       Max:=Matrix[i, j];
    Summ:=Summ + Max;
  end;

  {Вывод матрицы}
  for i:=0 to n-1 do begin
    for j:=0 to n-1 do
     Write(Matrix[i, j]: 3);
    WriteLn;
  end;

  WriteLn('Summ: ', Summ);

  Sleep(5000);
end.

[King Kong]

reflexx, спасибо большое мне теперь этот код нужно перегнать в delphi так? это ведь на паскале?

[ZX Spectrum-128]

Первую строчку прочтите еще раз.