[Opium1992]

Помогите с задачкой!! никак догнать не могут как решить..
вот она =) (на украинском, я перевёл на русский как мог =))

Задано две целочисленные матрицы A(n,n) і B(n,n) n<=15 . Сделать програму, которая строит і печатает вектор X(n) по правилу: X(i)=1,если все елементи i-го рядка первой и второй матриц отрицательные и X(i)=1 в других случаях.

буду очень признателен

[lmikle]

Ну и в чем проблема?
1. Напиши функцию (пусть f), которая принимает на вход матрицу и номер ряда (строки?) и возвращает True, если все элементы этого ряда отрицательные.
2. Напиши вторую функцию, которая стоит вектор (фактически, одномерный массив), при этом значение i-го элемента вектора = -1, если f(a,i) = True и f(b,i) = True, иначе значение элемента = 1.
Ну а с выводом вектора справишься.

[Opium1992]

Вот смотри я хз че не так

Код:

Type Tmas=array[0..14] of integer;
Var a,b:array[0..14] of Tmas;
l:boolean;
i,j:integer;
begin
   for i:=0 to n-1 do
	   for j:=0 to n-1 do
	      a[i,j]:=StrToInt(StringGrid1.Cells[j,i]);
	for i:=0 to n-1 do
	   for j:=0 to n-1 do
	      b[i,j]:=StrToInt(StringGrid2.Cells[j,i]);
  end;
  for i:=1 to n do
  begin l:=true;
  for j:=1 to n do
  if (a[i,j]>=0) or (b[i,j]>=0) then l:=false;
  if l=true then x[i]:=1 else x[i]:=0 ;
  for i:=1 to n do
  Edit2.Text:=IntToStr(x);
  end;

Admin: Пользуемся тегами!