Програмка в турбопаскале - SOS горит экзамен!!!

[Aleksandr Zarubin]

Уважаемые друзья,

помогите пожалуйста, если кто может!

Для успешной сдачи экзамена не хватает только одного - програмки в турбопаскале, сам делать не ленюсь, просто не очень получается, а может литературы хорошей не нашел!

Задание:
Вводится размерность двумерного массива A(N,M) и его элементы. Составить одномерный массив, содержащий средние арифметические значения положительных элементов в столбцах исходного массива. Полученный массив вывести на экран.

Заранее благодарю за содействие.

[Хыиуду]

Код: Выделить всё

for i:=1 to N do
for j:=1 to M do
begin
  writeln('Введите элемент ',i,':',j');
  readln(A[i,j]);
end;
for i:=1 to N do
begin
  sum:=0;
  count:=0;
  for j:=1 to M do
    if A[i,j]>0 then begin
       sum:=sum+A[i,j];
       count:=count+1;
    end;
  B[i]:=sum/count;
end;

Ввод матрицы писать не стал, это уже миллион раз на этом форуме было. Кроме того, надо предусмотреть случай, если в каком-то столбце нет положительных значений