Turbo Pascal 7.0 (Двумерные массивы)

[@vror@]

Помогите решить.
Дана матрица А(5,5). Вычислить среднее арифметическое каждой из строк матрицы, содержащих отрицательный элемент на главной диагонали. Среднее арифметическое переписать в одномерный массив В

Зарание спасибо!

[ROMA2PVT]

Ну а ваши где наработки?

А наработок то похоже и нет.

Const
  n=5;
var
    A:array[1..n,1..n] of integer;
    b:array[1..10] of real;
    i,j,sum,kol:integer;
    sr:real;
begin
randomize;
for i:=1 to n  do
begin
for j:=1 to n do
begin
A[i,j]:=random(10)-5;
write (A[i,j]:3,' ');
end;
writeln;
end;
writeln;
kol:=0;
for i:=1 to n do
for j:=1 to n do
if (i=j) and (A[i,j]<0) then
begin
sum:=0;
for j:=1 to n do
sum:=sum+A[i,j];
sr:=sum/n;
writeln('Среднее арифметическое ',i,'-й строки:=',sr:0:2);
inc(kol);
b[kol]:=sr;
end;
readln;
writeln('Массив среднего арифметического элементов: ');
for i:=1 to kol do
begin
write(' ',b[i]:1:2,' ');
end;
readln;
end.

[Grag]

Не мог пройти мимо и удержаться от критики...
Крайне безграмотное программирование!!!
Во вложенных циклах использовать один и тот же параметр цикла J!!! Да нельзя так писать программы!!!

for i:=1 to n do
for j:=1 to n do
if (i=j) and (A[i,j]<0) then
begin
sum:=0;
for j:=1 to n do
sum:=sum+A[i,j];
sr:=sum/n;
writeln('Среднее арифметическое ',i,'-й строки:=',sr:0:2);
inc(kol);
b[kol]:=sr;
end;

[Stilet]

Да нельзя так писать программы!!!

Видиом Рома писал с потолка, ибо мой компилятор (подтверждаю некузявость метода) послал меня с этой программой в... Даль )

[ROMA2PVT]

Видиом Рома писал с потолка, ибо мой компилятор (подтверждаю некузявость метода) послал меня с этой программой в... Даль )

Да Stilet прав просто тупо с потолка накодил.Ну как обычно замечания Grag'а верны.Всё понимаю и усекаю =).Но проверял на ABC всё пашет.