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

@Lolidragon · Регистрация: 13.02.2014

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

а)Строку с минимальной суммой элементов
б)Столбец с максимальной суммой элементов
Дополнительный массив не использовать.
Заранее спасибо.

@EagleAlex · 18.03.2014, 19:39

Pascal

uses crt;
var a:array [0..100, 0..100] of integer;
    var m,n,i,j,sum, maxcol, maxst : integer;
begin
clrscr;
writeln('enter size');
read(m,n);
writeln('enter data');
for i := 1 to m do
for j := 1 to n do
read(a[i,j]);
 
{1)}
for i:= 1 to m do
begin
sum:=0;
for j := 1 to n do
begin
 sum:= sum + a[i,j];
end;
if (maxcol < sum) then maxcol := sum;
end;
 
writeln(maxcol);
 
{2)}
for j:= 1 to n do
begin
sum:=0;
for i:= 1 to m do
begin
 sum:= sum + a[i,j];
end;
if (maxst < sum) then maxst := sum;
end;
 
writeln(maxst);
 
readkey;
end.

@Lolidragon 0 / 0 / 0 Регистрация: 13.02.2014 Сообщений: 13
		1
	Дан двумерный массив. Найти строку с минимальной суммой элементов, столбец с максимальной суммой элементов 18.03.2014, 19:09. Показов 6045. Ответов 1 Метки нет (Все метки) а)Строку с минимальной суммой элементов б)Столбец с максимальной суммой элементов Дополнительный массив не использовать. Заранее спасибо. 0

Опции темы

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

Решение