квадратная матрица A(nхn)

[SVing]

Собственно задание :
Дана квадратная матрица A(nхn). Построить вектор b, где bi, i=1,…,n – среднее арифметическое отрицательных элементов i-ого столбца матрицы

Вот я немного написал, а что дальше не представляю даже, не понимаю я этого. Помогите пожалуйсто продолжить.
Зарание спасибо

program matr;
uses crt;
var
A:array[1..10,1..10] of real;
b:array[1..10] of real;
max:real;


n : integer;
i : integer;
j : integer;
s : integer;
k : integer;

begin
write('vvedite N');
readln(N);
for i:=1 to N do

for j:=1 to N do
begin
write('A[',i,',',j,']=');
readln(A[i,j]);

end;
writeln ('matrica A:');
for i:=1 to N do
begin
for j:=1 to N do
write (A[i,j]:5:2);
writeln;
end;



for j:=1 to n do
begin
s:=0;
k:=0;
for i:=1 to n do
if A[i,j]<0 then s:=s-b[i,j];
A[i]:=s;

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[SVing]

никто не знает?

[Serge_Bliznykov]

в индексах массива первый параметер - строка, второй - столбце.

поэтому, чтобы перебрать I-й столбец нужно выполнить такой цикл

for j:=1 to N do 
   ...A[j, i ] ...

следовательно, Ваша задача вырождается в такой код:

for i:=1 to N do begin{цикл по столбцам}
  K := 0;
  S := 0;
  for j:=1 to N do 
     if A[j, i] < 0 then begin
        Inc(K);
        S := S + A[ j, i ];
     end;
  if K=0 then B[i] := 0
  else B[i] := S/K;
end;

дальше выводите содержимое вектора B
задача решена.

[SVing]

а каким образом вектор вывести? я просто вообще не понимаю этого

[Serge_Bliznykov]

а каким образом вектор вывести? я просто вообще не понимаю этого

а может быть имеет смысл хотя бы в том коде, который Вы собираетесь сдавать - разобраться?!
Вывод на экран двухмерной матрицы A у Вас сложностей, судя по вышеприведённому коду, не вызвал!

вывести содержимое вектора B можно примерно так:

WriteLn('Полученный вектор средних значений B:');
for i:=1 to N do 
   Write(B[i]:0:5, '  ');
WriteLn;

[SVing]

вызвало и большое затруднение. в методичке покапался нашёл похожее ,пришлось помудрить
спасибо! буду пробовать