Дана матрица  B(N, N) . Получите вектор  A(N) , компоненты которого находятся по правилу:   Ai  равно первому по порядку положительному элементу в  i-ой строке матрицы (если таких элементов в строке нет, то примите  Ai = –1) — Pascal(Паскаль)

for i := 1 to n do
for j := 1 to n do
  begin
     if B[i,j]>0 then  
      begin 
         A[i] := B[i,j];
         break; 
      end;
    if j = n then A[i] := -1;
  end;

Похожие записи/страницы:

Leave a Comment

63 − 53 =