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

Спасибо, у меня почти также получилось )

Просто не совсем понял как нужно было условие задать, но я потом догадался 

//Pascal ABC.NET v3.0 сборка 1111Var 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.