ответ: Delphi/Pascal
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for j:=1 to N do
begin
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
begin
if a[i,j]>Max then Max:=a[i,j];
end;
writeln('Масимальный элемент:',Max);
end;
end
program Matrix24;
var
a:array [1..10,1..10] of integer;
Max,M, N, i, j:Integer;
begin
Write('N: ');
Readln(N);
Write('M: ');
Readln(M);
for i:=1 to M do
begin
writeln(i,': ');
for j:=1 to N do
begin
Write(j,' : ');
Read(a[i,j]);
end;
end;
for j:=1 to N do
begin
writeln(j,': ');
Max:=a[1,j];
for i:=2 to M do
begin
if a[i,j]>Max then Max:=a[i,j];
end;
writeln('Масимальный элемент:',Max);
end;
end.
Объяснение:
Последовательность действий:
Перевези козу (так как с тигром оставлять нельзя он ее съест, а козу с морковкой нельзя она ее съест)
Переправься обратно один.
Перевези тигра (на том берегу останется пока одна морковка)
Перевези козу (он ее забрал на тот остров, чтобы тигр не съел)
Перевези морковку (козу оставляет, потому что там тигр, да еще и морковка)
Переправься обратно один.
Перевези козу (он ее забирает)
Смысл задачи был, перевезти всех на противоположный берег, при условии что:
В лодке могут быть двое
Тигра с козой оставлять нельзя
Козу морковкой оставлять нельзя
