Pascal характеристика матриц

[Вавел из ГМТУ]

Я было начал делать, но забил.. Вот что наработал

Var
  x, y, Summ : Integer;
  Mass : Array [1..10, 1..6] Of Integer;
Begin
Randomize;
Summ := 0;
//Заполняем массив
For x := 1 To 10 Do
  Begin
    For y := 1 To 6 Do
      Begin
        Mass[x,y] := 2 - Random(5);
        Write(IntToStr(Mass[x,y]) + ' ');
      End;
    Writeln;
  End;

//Прсуммируем и выведем на экран "характеристики" строк.
Writeln;
For x := 1 To 10 Do
  Begin
    For y := 1 To 6 Do If (y mod 2 = 0) And (Mass[x,y] > 0) Then Summ := Summ + Mass[x, y];
    Writeln(Summ);
    Summ := 0;
  End;
Readln;
End.

А вот что дальше делать/изменять я думать не стал. Я только понимаю что тут надо подумать

[tipson]

puporev сделал задачу на много проще, я аж удивился ))
ща ссылю дам

program matrica;
uses crt;
var a:array[1..20,1..20] of integer;{дополнительный массив не нужен}
    n,i,j,l:byte;
    sm,b:integer;{сумма, буфер для обмена}
begin
clrscr;
randomize;
write('Размер матрицы n=');
readln(n);
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20)-2;
for i:=1 to n do{идем по строкам}
 begin
  sm:=0;
  for j:=1 to n do
  if (a[i,j] mod 2=0) and (a[i][j]>0) then sm:=sm+a[i,j];{считаем сумму нужных в строке}
  a[i,n+1]:=sm;{записываем ее в дополнительный столбец матрицы}
 end;
writeln('Исходная матрица:');
writeln('Сумма':n*4+6);
for i:=1 to n do
 begin
  for j:=1 to n+1 do
  if j<=n then write(a[i,j]:4){сама матрица}
  else write(a[i,j]:6);{дополнительный столбец}
  writeln;
 end;
for i:=1 to n-1 do {сортируем все столбцы матрицы по возрастанию}
for l:=i+1 to n do
if a[i,n+1]>a[l,n+1] then{одновременно с сортировкой дополнительного столбца}
for j:=1 to n+1 do
 begin
  b:=a[i,j];
  a[i,j]:=a[l,j];
  a[l,j]:=b;
 end;
writeln('Измененная матрица:');
writeln('Сумма':n*4+6);
for i:=1 to n do
 begin
  for j:=1 to n+1 do
  if j<=n then write(a[i,j]:4)
  else write(a[i,j]:6);
  writeln;
 end;
readln
end.

http://programmersforum.ru/showthread.php?t=56767