Массив

[Sanyok1993]

дано матрицу размерности Н * М. Числа вводятся с помощью генератора случайных чисел в диапазоне от -10 до 10.Знайты в которой колонке есть максимальная сумма элементов по абсолютной величине.

uses crt;
var x:array[1..3,1..3] of integer;
b:array[1..3] of integer;
c,z,v:integer;
begin
clrscr;
randomize;
for z:=1 to 3 do
begin
for c:=1 to 3 do
begin
x[z,c]:=random(20)-10;
write(x[z,c]:8);
end;
writeln;
for z:=1 to 3 do
for c:=1 to 3 do
end;
for z:=1 to 3 do
begin
b[c]:=b[c]+x[z,c];
writeln('b[c]=',b[c]); вот здесь выводит толька 3 колонку,а как зделать что б выводило 1 и 2 тоже?
end;
readln;
end.

[OCTAGRAM]

По–хорошему, b нулями заполнить предварительно.

Не Random(20) - 10, а Random(21) - 10 должно быть, потому что Random(20) возвращает числа в диапазоне от 0 до 19, а надо до 20.

Без выравнивания код тяжело понять, надо кнопкой # пользоваться

[Летучий_СкилетиК]

самый простой вариант:

var x:array[1..100,1..100] of integer;
c,z,v,p,max,m,n,s:integer;
begin
clrscr;
randomize;
readln(n,m);
for z:=1 to n do
begin
   for c:=1 to m do
   begin
      x[z,c]:=random(21)-10;
      write(x[z,c]:8);
   end;
writeln;
end;
max:=abs(x[1,1]);p :=1;
for z:=1 to n do
begin
  s:=0;
  for c:=1 to m do
  s := s + abs(x[c,z]);
if max < s then begin p := z; max := s;end;
end;
writeln(p);
readln;
end.

[Anatole]

writeln('b[c]=',b[c]); вот здесь выводит толька 3 колонку,а как зделать что б выводило 1 и 2 тоже?

где-то так:

for c:=1 to 3 do write(" ",b[c]);
writeln;

[Sanyok1993]

большое спасибо вам за помощ.+_+