Дана матрица. Построить n-мерный вектор по правилу

@Forksi · Регистрация: 13.03.2014

Студворк — интернет-сервис помощи студентам

Дана матрица А(nxn). Построить n-мерный вектор по правилу: если в столбце матрицы с номером i есть отрицательные элементы, то bi = 0, в противном случае bi = 1.
Помогите

@bormant · 13.03.2014, 14:55

Pascal

for i:=1 to n do begin
  b[i]:=1;
  for j:=1 to n do
    if a[j]<0 then b[i]:=0;
end;

@Forksi · 13.03.2014, 15:20 **[ТС]**

Pascal

program ff;
const h=30;
var a:array[1..h,1..h] of integer;
b:array[1..h] of integer;
i,j,n:integer;
begin
randomize;
write('Размер матрицы = ');
readln(n);
for i:=1 to n do b[i]:=1;
for i:=1 to n do
begin
writeln;
for j:=1 to n do
begin
a[ i,j]:=random(10)-2;
if a[ i,j]<0 then b[ i]:=0;
write(a[ i,j],' ');
end;
end;
writeln;
for i:=1 to n do 
write(b[i],' ');
end.

вот что у меня получилось,но почему-то он выводит не так как надо.
поправьте что не так

@bormant · 13.03.2014, 15:32

Так?

Pascal

program ff;
const h=30;
var
  a: array [1..h,1..h] of integer;
  b: array [1..h] of integer;
  i, j, n: integer;
begin
  randomize;
  write('Размер матрицы = ');
  readln(n);
  for j:=1 to n do begin
    b[j]:=1;
    for i:=1 to n do begin
      a[i,j]:=random(10)-2;
      if a[i,j]<0 then b[j]:=0;
    end;
  end;
  for i:=1 to n do begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;
  writeln;
  for i:=1 to n do write(b[i]:4);
  writeln;
end.

@Forksi · 13.03.2014, 15:44 **[ТС]**

Большое спасибо.

@Forksi 0 / 0 / 0 Регистрация: 13.03.2014 Сообщений: 3
		1
	Дана матрица. Построить n-мерный вектор по правилу 13.03.2014, 14:05. Показов 3530. Ответов 4 Метки нет (Все метки) Дана матрица А(nxn). Построить n-мерный вектор по правилу: если в столбце матрицы с номером i есть отрицательные элементы, то bi = 0, в противном случае bi = 1. Помогите 0

@Forksi 0 / 0 / 0 Регистрация: 13.03.2014 Сообщений: 3
	13.03.2014, 15:44 [ТС]	5
	Большое спасибо. 0

Опции темы