. Дан двумерный массив из пятнадцати строк и двух столбцов. Найти мини- мальную сумму элементов в двух соседних строках
Ответы
Ответ дал:
0
//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.
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.
Ответ дал:
0
Спасибо, у меня почти также получилось )
Ответ дал:
0
Просто не совсем понял как нужно было условие задать, но я потом догадался
Вас заинтересует
1 год назад
6 лет назад
8 лет назад
9 лет назад