Дан двумерный массив из пятнадцати строк и двух столбцов. найти мини- мальную сумму элементов в двух соседних строках

//Pascal ABC.NET v3.0 сборка 1111

Var
 ma:array[1..15,1..2] of integer;
 i,j,min:integer;
begin;
 randomize;
 min:=2147483647;
  for i:=1 to 15 do
  begin;
   writeln;
    for j:=1 to 2 do
     begin;
      ma[i,j]:=random(100);
      write(ma[i,j]:4);
     end;
  if (ma[i,1]+ma[i,2])<min then min:=ma[i,1]+ma[i,2];
  end;
  writeln;
  writeln('Min=',min);
 end.

ответ: окей

объяснение:

для квадрата:

procedure tform1.button1click(sender: tobject);

var

a,b,c,d,p,s: real;

begin

a: =2; b: =2; c: =2; d: =2;

if ((a=b)and(c=d)and(a=d))then

begin

p: =(a+b+c+d)/2;

s: =sqrt((p-a)*(p-b)*(p-c)*(p-d));

showmessage('s='+floattostr(s));

end else showmessage('это не квадрат');

end;

для треугольника:

procedure tform1.button1click(sender: tobject);

var

a,b,c,p,s: real;

begin

a: =2; b: =2; c: =3;

if (abs(a-b)

begin

p: =(a+b+c)/2;

s: =sqrt(p*(p-a)*(p-b)*(p-c));

edit1.text: =floattostr(s);

end else showmessage('не треугольник');

end;

ответ:

на форму поставил компонент memo

в edit1 и edit2 вводим значения строк и столбцов

для цикла for i: = for j: =

на кнопке следующий код

объяснение:

procedure tform1.button1click(sender: tobject);

  var i,j: integer; s: string;

begin

  a: = strtoint(edit1.text);

  b: = strtoint(edit2.text);

 

    for i: = 1 to a do begin

          s: = '';

    for j: = 1 to b do

      s: = s+'   '+inttostr(i*j);

      memo1.lines[i-1]: = s;

    end;

end;