про задачу с матрицей

[redz]

накидайте пожалуйста работающий вариант программки

Дана матрица B размеры 5 x 4.
Составить программу формирования вектора,элементы которой равны сумме элементов строк матрицы B.

p.s. вроди бы эта задача связанна с двухмерным массивом

[alex_fcsm]

uses crt;
const a=5;
      b=4;
var x:array[1..a,1..b] of integer;
    vector:array[1..a] of integer;
    sum,i,j:integer;

begin
clrscr;
randomize;
  for i:=1 to a do
   begin
    writeln;
    vector[i]:=0;
     for j:=1 to b do
      begin
       x[i,j]:=random(10);
       write(x[i,j],' ');
       vector[i]:=vector[i]+x[i,j]
      end;  
    write('  ',vector[i])
   end;
writeln;
end.

[madmot]

предложу такой вариант

uses crt;
var b: array[1..5,1..4] of integer;
    a: array[1..4] of integer;
    i,j:byte;
    sum:integer;

procedure initB;
var i,j:byte;
begin
  for i:=1 to 4 do
    for j:=1 to 5 do
    begin
      write('B[',i,',',j,'] = ');
      readln(b[i,j]);
    end;
end;

BEGIN
  clrscr;
  initB;
  writeln;
  for i:=1 to 4 do
  begin
    sum:=0;
    for j:=1 to 5 do
    begin
      write(b[i,j],' ');
      sum:=sum+b[i,j];
    end;
    a[i]:=sum;
    writeln;
  end;
  writeln;
  write('vector A : ');
  for i:=1 to 4 do write(a[i],' ');
  readkey;
END.