плиззз помогите пож решить задачку
Обработка многомерных массивов. Сложные циклы в Делфи
В заданной матрице Am×n найти строку с максимальной суммой модулей элементов.
Желательно матрица 4*4
Взаранее спасибо...
Turbo Delphi 2006
Обработка многомерных массивов(Помогите решить задачку)
Модераторы: Хыиуду, MOTOCoder, Medved, dr.Jekill
могу сделать val20063@mail.ru
ну напишите кто нибудь пожалуйста
Вот прога, если что спрашивай 
- Вложения
-
- Прога..zip
- (3.46 КБ) 43 скачивания
_______ Я уже сам разобрался______
Program smax_4;
{$APPTYPE CONSOLE}
uses
SysUtils;
const m=4;
var a:array[1..m,1..m] of integer;
Max, Sum, iMax, i, k: integer;
begin
randomize;
For i:=1 to m do
begin
For k:=1 to m do
begin
a[i,k]:=random(50);
write(a[I,k]:4);
end;
writeln;
end;
writeln(' ','---------------------');
Sum := 0;
for k:=1 to M do
Sum := Sum + a[1,k];
Max := Sum;
iMax := 1;
for i:=2 to m do
begin
Sum := 0;
for k:=1 to m do
Sum := Sum + a[i,k];
if Sum > Max then
begin
Max := Sum;
iMax := i;
end;
end;
writeln(' ','бва®Єa=','', iMax,';', ' б㬬*=', Max );
writeln(' ','---------------------');
readln;
end.
Program smax_4;
{$APPTYPE CONSOLE}
uses
SysUtils;
const m=4;
var a:array[1..m,1..m] of integer;
Max, Sum, iMax, i, k: integer;
begin
randomize;
For i:=1 to m do
begin
For k:=1 to m do
begin
a[i,k]:=random(50);
write(a[I,k]:4);
end;
writeln;
end;
writeln(' ','---------------------');
Sum := 0;
for k:=1 to M do
Sum := Sum + a[1,k];
Max := Sum;
iMax := 1;
for i:=2 to m do
begin
Sum := 0;
for k:=1 to m do
Sum := Sum + a[i,k];
if Sum > Max then
begin
Max := Sum;
iMax := i;
end;
end;
writeln(' ','бва®Єa=','', iMax,';', ' б㬬*=', Max );
writeln(' ','---------------------');
readln;
end.
спасибо Angel666... чет я сегодня твою запись не заметил. вчера в это же время(00:20) делал, 40 мин потратил, а сегодня защитил. Спасибо
Зато сам разобрался и теперь знаешь как делать подобные задачи, молодец