Вот программа и результат ее работы (см. скриншоты)
Эта программа находит максимальный элемент, стоящий на четном месте и минимальный элемент, стоящий на нечетном месте
Затем max и min складываются.
Чтобы протестировать программу необходимо УБРАТЬ ввод датчиком случайных чисел (random) и написать ввод с клавиатуры.
Сейчас выставлю второй вариант (для тестирования)
Рабочий стол за которым ты сидишь во время работы
//PascalABC.Net 3.2
begin
var a: array of array of integer;
var n:=readinteger('Строк матрицы: ');
var m:=readinteger('Столбцов матрицы: ');
setLength (a, n);
for var i:=0 to length(a)-1 do a[i]:=arrRandom (m, -18, 48);
var sumP:=0; var sumO:=0; var kolO:=0;
for var i:=0 to n-1 do for var j:=0 to m-1 do
if a[i][j]<0 then begin
sumO+=a[i][j];
kolO+=1;
end else sumP+=a[i][j];
writeln ('Разница: ', sumP/(m*n-kolO)-sumO/kolO);
end.
Пусть переправятся сначала двое детей, потом один обратно приведёт лодку к берегу, потом один взрослый, потом один ребёнок, потом опять двое детей, потом один приведёт лодку, переправится второй взрослый, потом один ребёнок приедет за вторым и они вместе уедут на другой берег к взрослым, знаю глупо объяснил, но понять можно..