Roszek 4 U

program zad;
uses Crt;
const
     max=100;
type macierz=array [1..max, 1..max] of integer;
     wektor=array [1..max] of integer;
var B,C:wektor;
    A:macierz;
    n,m,i,j:integer;

procedure los (var A:macierz; n,m:byte);
var i,j:byte;
begin
     for i:=1 to n do
     for j:=1 to m do
     A[i,j]:=random(101);
end;

procedure wypis (var A:macierz; n,m:byte);
var i, j:byte;
begin
     for i:=1 to n do
     begin
          for j:=1 to m do write(A[i,j]:4);
          writeln;
     end;
end;

procedure tworzenie (var A:macierz; var B:wektor; n,m:byte);
var s,i,j:integer;
begin
     s:=0;
     for i:=1 to n do
      begin
                for j:=1 to m do s:=s+A[i,j];
                B[i]:=s;
                s:=0;
     end;
      { end;}
end;

procedure wypis2 (var B:wektor; n:byte);
var i:byte;
begin
        for i:=1 to n do write(B[i]:4);
        writeln;
end;

begin
     randomize;
     ClrScr;
     write('Ile wierszy?: ');
     readln(n);
     write('Ile kolumn?: ');
     readln(m);
     los(A,n,m);
     wypis(A,n,m);
     writeln;
     write('now tablica:');
     tworzenie(A,B,n,m);
     wypis2(B,n);
     readkey;
end.