модули элементов в двумерном массиве Опции

[18192123]

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


я не соображу, как собственно вывести строку

и еще... при компиляции появляется ошибка 36 ( отсутствие begin), не знаю, где его пропустила

uses crt;
const n=2;
      m=5;
type vect=array[1..n] of real;
     matr=array[1..m] of vect;
procedure input(var a:matr);
var
   i,j:byte;
begin
writeln ('vvedite elementi dvymernogo massiva');
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
end;
procedure stroka(a:matr; var:s,s1);
i,j:byte;
max:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
s:=0;
s:=s+abs(a[1,j];
max:=s;
s1:=s1+abs(a[2,j]);
if max<s1 then
writeln ('nyshai stroka:2');
else writeln ('nysnai stroka :1');
writeln ('s=',s:4:1);
writeln ('s1=',s1:4:1); end;
end;
var
a:matr;
begin
input(a);
storka(a,s,s1);
readkey;
end.

[мисс_граффити]

это формальный параметр.
вместо него при вызоые подставляется фактический - i.

[18192123]

это формальный параметр.
вместо него при вызоые подставляется фактический - i.

большое спасибо!

[18192123]

большое спасибо!

а у меня тут еще один вариант "родился", только, по-моему, где-то напутала с формальными и фактическими параметрами, т.к. программа не идет дальше вывода исходной матрицы...

program zach_6;
uses crt;

const
  n = 2;
  m = 3;

type
  matr= array [1..n, 1..m] of real;
  vect=array[1..n] of real;
procedure Input(var a:matr);
var
  i, j: Integer;
begin
  for i := 1 to n do
   for j := 1 to m do begin
     write('a[', i, ',', j, ']=');
     readln(a[i, j]);
   end;
end;

procedure Print(const a:matr);
var
  i, j: Integer;
begin
  for i := 1 to n do begin
    writeln;
    for j := 1 to m do write(a[i, j] : 3);
  end;
  writeln;
end;
procedure modyl(var a:matr; s:vect);
var k,i:1..n;
j:1..m;
t:real;
begin
for i:=1 to n do s[k]:=0;
t:=0;
for k:=1 to n do
for i:=1 to n do begin
for j:=1 to m do begin
s[k]:=abs(a[i,j]);
t:=t+s[k];
end;
s[k]:=t;
end;
end;
procedure poisk (var s:vect;a:matr);
var
k,j:integer;
max:real;
begin
max:=s[1];
for k:=1 to n do
if max<s[k] then for j:=1 to n do writeln (a[k,j])
end;
Var
   a:matr; k:integer; t:real;
   s:vect;
Begin
clrscr;
input(a);
print(a);
modyl(a,s);
poisk(s,a);
readkey;
end.

Сообщение отредактировано: 18192123 - 15.11.2006 18:31