help, массивы Опции

[murakle]

помогите
решить на паскале
пожалуйста
задача:
дана матрица а(10,15) ,зап случ числами в диапозоне от 0 до 29 Сформировать одномерный массив sum из сумм зн-ний эл-тов каждого столбца матрицы

[T i m e]

Это же элементарно...

Код

randomize;
k := 0;
for i := 1 to 20 do
begin
   x[i] = random(100)-50;
   if (x[i] > 0) and (k < 10) then
     begin    
       k := k + 1;      
       new[k] := x[i];
     end;
end;
{new - новый массив из 10 положительных, если их вообще там 10 есть, и содержащий k элементов в противном случае}

Добавлено через 1 мин.
Сверху ответ на предыдущию тему, которую закрыли....

Добавлено через 44 сек.
Сверху мой ответ на предыдущию тему, которую закрыли....

Добавлено через 9 мин.
А вот код уже к этой задаче...

Код

randomize;
for j := 1 to 15 do begin
sum[j] := 0;
for i := 1 to 10 do
  begin
   a[i,j] := random(30);
   sum[j] := a[i,j] + sum[j];
  end;
end;