Матрицы. Построить вектор надо

[Karina_Vamp]

Читая матрицу А(MxN) по столбцам, построить вектор В из отрицательных элементов и подсчитать их количество...

Program zad5;
Uses Crt;
Var a:array[1..10,1..10] of integer;
    b:array[1..10,1..10] of integer;
    m,n,i,j,k:integer;
Begin
ClrScr;
Writeln ('Vvedite A[MxN] M: ');
Readln (m);
Writeln ('Vvedite A[MxN] N: ');
Readln (n);
Begin
for j:=1 to n do
for i:=1 to m do
    if a[i,j]<0 then
       Begin
       k:=k+1;
       b[k]:=a[i,j];
       End;
    Writeln ('Kol. otricatel.: ');
Readkey;
End.

[goto ∞]

Сообщение от Karina_Vamp

Читая матрицу А(MxN) по столбцам, построить вектор В из отрицательных элементов и подсчитать их количество...

Program zad5;
Uses Crt;
Var a:array[1..10,1..10] of integer;
b:array[1..10,1..10] of integer;
m,n,i,j,k:integer;
Begin
ClrScr;
Writeln ('Vvedite A[MxN] M: ');
Readln (m);
Writeln ('Vvedite A[MxN] N: ');
Readln (n);
Begin
for j:=1 to n do
for i:=1 to m do
if a[i,j]<0 then
Begin
k:=k+1;
b[k]:=a[i,j];
End;
Writeln ('Kol. otricatel.: ');
Readkey;
End.

Поправьте ..

[Karina_Vamp]

Как поправить? выбивает ошибку...с типами чтот насколько я поняла

[Mad_Cat]

b:array[1..100] of integer;

k:=0;
for j:=1 to n do
for i:=1 to m do begin
readln(a[i,j]);
if a[i,j]<0 then
Begin
k:=k+1;
b[k]:=a[i,j];
End; end;

[goto ∞]

Ну как же так.
Вы объявили двухмерный массив "b[1..10,1..10]"..
и пытаетесь присвоить ему как одномерному массиву "b[k] :=a[i,j]"..
Раз надо построить вектор то надо объявить как одномерный массив
b:array[1..10] of integer;

[Karina_Vamp]

Точно...извините, не вижу я и всё таких мелочей. За это вам спасибо

Может со временем научусь

Не строится вектор теперь...гррр. Вернее что-то строится, только явно не вектор:

Var a:array[1..10,1..10] of integer;
    b:array[1..100] of integer;
    m,n,i,j,k:integer;
Begin
ClrScr;
Writeln ('Vvedite A[MxN] M: ');
Readln (m);
Writeln ('Vvedite A[MxN] N: ');
Readln (n);

Begin
k:=0;
for j:=1 to n do
for i:=1 to m do
Begin
Writeln ('Vvedite a(',i,',',j,'):=');
Readln (a[i,j]);
    if a[i,j]<0 then
       Begin
       k:=k+1;
       b[k]:=a[i,j];
       End;
       End;
       end;
    Writeln ('Kol. otricatel.: ',k);
    Write ('Vector B(');
    for i:=1 to j do
    Write (b[k],'');
Readkey;
End.

[goto ∞]

Сообщение от Karina_Vamp

Не строится вектор теперь...гррр. Вернее что-то строится, только явно не вектор:
Var a:array[1..10,1..10] of integer;
b:array[1..100] of integer;
m,n,i,j,k:integer;
Begin
ClrScr;
Writeln ('Vvedite A[MxN] M: ');
Readln (m);
Writeln ('Vvedite A[MxN] N: ');
Readln (n);

Begin
k:=0;
for j:=1 to n do
for i:=1 to m do
Begin
Writeln ('Vvedite a(',i,',',j,'):=');
Readln (a[i,j]);
if a[i,j]<0 then
Begin
k:=k+1;
b[k]:=a[i,j];
End;
End;
end;
Writeln ('Kol. otricatel.: ',k);
Write ('Vector B(');
for i:=1 to j do
Write (b[k],'');
Readkey;
End.

Вот, вместо отмеченного красным цветом пишите..

for i := 1 to k do
  Write (b[i],'');