[Delphi] В каждой четной по номеру строке матрицы найти минимальный элемент и вычислить сумму этих элементов.

[XakProg]

Помогите) В каждой четной по номеру строке матрицы найти минимальный элемент и вычислить сумму этих элементов. (delphi)

[p51x]

Таки чем помочь? В чем проблема? Какие ошибки выдал компилятор?

[Вадим Мошев]

XakProg, конкретно, какой помощи вы хотите?

[Вадим Мошев]

XakProg, короче, если вы хотите получить готовые решения ваших задач, пишите мне на почту vadimFreelance (co6ака) yandex (тчк) ru
Я сделаю вам эти задачи за некоторое денежное вознаграждение.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i,j,s,m:integer;
    p:array[1..6,1..6] of integer;
begin
   Randomize;
   Label1.Caption:='';
   For i:=1 to 6 do
   begin
      For j:=1 to 6 do
      begin
         p[i,j]:=Random(20);
         Label1.Caption:=Label1.Caption+IntToStr(p[i,j])+'  ';
      end;
      Label1.Caption:=Label1.Caption+#13#10;
   end;
   s:=0;
   Label2.Caption:='';
   For i:=1 to 6 do
      If i mod 2=0 then
      begin
         m:=p[i,1];
         For j:=2 to 6 do
            If m>p[i,j] then
               m:=p[i,j];
         Label2.Caption:=Label2.Caption+IntToStr(m)+#13#10;
         s:=s+m;
      end;
   Label2.Caption:=Label2.Caption+#13#10;
   Label2.Caption:=Label2.Caption+IntToStr(s);
end;