паскаль,матрица.

[Ам тя]

program z1;
const n=3;
m=3;
var a:array [1..n,1..m] of integer;
b:array [1..m] of integer;
i,j,max,min:integer;
begin
writeln('vv ishodnogo massiva');
for i := 1 to n do begin
for j := 1 to m do begin
a[i,j]:=random(25)-random(15);
write(a[i,j],' ');
end;
writeln;
end;
writeln;
for i:=1 to m do begin
min:=a[1,1];
max:=a[1,1];
for j:=1 to n do begin
if a[i,j]>max then max:=a[i,j];
if a[i,j]<min then min:=a[i,j];
b[i]:=max-min;
end;
end;
for i:=1 to m do begin
write(b[i],' '); writeln; end;
readln;
end.
нужно FOR заменить на While
х)

[dr.Chas]

program Project1;

{$APPTYPE CONSOLE}

const n=3;
      m=3;
var a:array [1..n,1..m] of integer;
    b:array [1..m] of integer;
    i,j,max,min:integer;
begin
  writeln('vv ishodnogo massiva');

  i:=0;
  while i<>n do//for i := 1 to n do
  begin
    j:=0;
    while j<>m do //for j := 1 to m do
    begin
      a[i,j]:=random(25)-random(15);
      write(a[i,j]:3,' ');
      inc(j);
    end;
    inc(i);
    writeln;
  end;
  writeln;

  for i:=1 to m do
  begin
    min:=a[1,1];
    max:=a[1,1];
    for j:=1 to n do
    begin
      if a[i,j]>max then max:=a[i,j];
      if a[i,j]<min then min:=a[i,j];
      b[i]:=max-min;
    end;
  end;

  for i:=1 to m do
  begin
    write(b[i],' '); writeln;
  end;
  readln;
end.

Сделал для первых двух. Остальное оставил вам, делайте по подобию.

P.S.: Для оформления кода нужно использовать тег [CODE]

[Ам тя]

не, не катит

[dr.Chas]

>>не, не катит

Почему?

[Ам тя]

=) не получилось
но кажись я разобралась (ы), как надо (не сама конечно )
показать? х)