uses crt;
var a:array[1..10,1..10] of byte;
i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(15);
write(a[i,j]:4);
end;
end;
end.

Массив из случайных чисел!
Как дальше подсчитать суммы строк массива!