Двумерный массив

[ales11]

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

[Stilet]

Показывай как вводишь массив.

[ales11]

writeln('Ввод Массива A');
for i:=1 to m do
for j:=1 to n do
read (a[i,j]);

[Stilet]

Отлично. Значит:

writeln('Ввод Массива A');
for i:=1 to m do 
for j:=1 to n do 
   read (a[i,j]);

{Находим сумму}
sum:=0;
for i:=1 to n do sum:=sum+a[m,i];

{Суммируем все элементы}
for i:=1 to m do 
for j:=1 to n do 
   a[i,j]:=a[i,j]*sum;

{ищем кол-во}
for i:=1 to m do begin cnt:=0;
 for j:=1 to n do if a[i,j] in [-4..15] then inc(cnt);
 writeln(cnt);
end;

sum и cnt типа integer;