Выбрать из матрицы квадрат элементов с максимальной суммой элементов, который вернуть в виде матрицы

@finpes · Регистрация: 14.09.2020

Author24 — интернет-сервис помощи студентам

Выбрать из двумерного массива квадрат элементов с максимальной суммой элементов, который вернуть в виде двумерного массива.
Учесть, что если в переданном двумерном массиве есть отрицательные элементы, то квадрат с максимальной суммой не обязательно будет максимального размера. Обязательно придумать примеры под такой случай.

Помогите решить

@Puporev · 02.11.2020, 20:01

Pascal

var a:array[1..15,1..15] of integer;
    m,n,k,d,i,j,ii,jj,i1,j1,s,mx:integer;
begin
randomize;
repeat
write('Введите количество строк от 2 до 15 m=');
readln(m);
until m in [2..15];
repeat
write('Введите количество столбцов от 2 до 15 n=');
readln(n);
until n in [2..15];
if m<n then k:=m else k:=n;
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-10+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
//найдеи квадрат с максимальной суммой
mx:=a[1,1];
i1:=1;
j1:=1;
k:=1;
for i:=1 to m do
for j:=1 to n do
 begin
  if m-i<n-j then d:=m-i else d:=n-j;
  while d>=0 do//(d<m-i)and(d<n-j) do
   begin
    s:=0;
    for ii:=i to i+d do
    for jj:=j to j+d do
    s:=s+a[ii,jj];
    if s>mx then
     begin
      mx:=s;
      i1:=i;
      j1:=j;
      k:=d+1;
     end;
    dec(d);
   end;
 end;
writeln('Квадрат с максимальной суммой');
for i:=1 to k do
 begin
   for j:=1 to k do
   write(a[i1+i-1,j1+j-1]:4);
   writeln;
 end;
end.

@finpes 0 / 0 / 0 Регистрация: 14.09.2020 Сообщений: 10
		1
	Выбрать из матрицы квадрат элементов с максимальной суммой элементов, который вернуть в виде матрицы 02.11.2020, 17:18. Показов 2275. Ответов 1 Метки pascal, массивы pascal (Все метки) Выбрать из двумерного массива квадрат элементов с максимальной суммой элементов, который вернуть в виде двумерного массива. Учесть, что если в переданном двумерном массиве есть отрицательные элементы, то квадрат с максимальной суммой не обязательно будет максимального размера. Обязательно придумать примеры под такой случай. Помогите решить 0

	02.11.2020, 20:01

Выбрать из матрицы квадрат элементов с максимальной суммой элементов, который вернуть в виде матрицы

Решение