Массивы и процедуры

[Кэйт]

С использованием процедуры нахождения произведения отрицательных элементов одномерного массива, вычислить Y=(n-Pn)2 + ((n-1)-Pn-1)2 +…..+(1-P1)2, где n – количество столбцов, m – количество строк, P1 – произведение отрицательных элементов i-ого столбца введенного двумерного массива.

Есть соображения??

[Филантроп]

Есть соображения?

Есть!

type vector = array [1..100] of integer;
type matrix = array [1..100] of vector;
var a:matrix;
j,k,m,n,y:integer;
procedure p_otr(x:matrix;cr:integer;nc:integer;var p:integer);
var i:integer;max:integer;
begin
max:=1;
for i:=1 to cr do
  if x[i,nc]<0 then max:= max*x[i,nc];
 p:=max;
end;
begin
readln(n);
readln(m);
for k:=1 to n do begin
for j:=1 to m do begin
a[k,j]:=random(m*n) -round(sqrt(n*m));
write(a[k,j]:4);
end;
writeln;end;
y:=0;
for k:=m downto 1 do begin
p_otr(a,n,k,j);
y:=y+sqr(k-j);end;
Writeln('y=',y);
readln;
end.

[Grag]

Кэйт, обращайся!
Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

[Morik94]

Помогите решить!!!
в массиве из 15 элементов заменить числа находящиеся в интервале от 10 до 50 на удвоенную сумму

[Hacker19_90]

Удвоенную сумму чего

[Кэйт]

Огромное спасибо!!!
Очень спас!