Заменить заданным вектором строки матрицы В, которые содержат хотя бы один отрицательный элемент - Turbo Pascal

Формулировка задачи:

Выполнить над прямоугольной матрицей В размером m х n последовательность действий, указанную в задании. Задание 2.1. а) Заменить заданным вектором строки В, которые содержат хотя бы один отрицательный элемент; б) в полученной матрице вычислить суммы элементов строк, номера которых не являются элементами заданного целочисленного вектора. Спасайте ребята завтра курсач сдавать

Решение задачи: «Заменить заданным вектором строки матрицы В, которые содержат хотя бы один отрицательный элемент»

textual
                            Листинг программы 
                        
 
                        
                          
                    
{...}
  for i:=1 to m do begin
    j:=n; while (j>0) and (b[i,j]>=0) do Dec(j);
    if j>0 then b[i]:=a;
  end;
  for i:=1 to m do begin
    j:=n; while (j>0) and (i<>a[j]) do Dec(j);
    if j=0 then begin
      s:=0; for j:=1 to n do s:=s+b[i,j]; WriteLn(i,': ',s);
    end;
  end;
{...}

Оцени полезность:

10 голосов , оценка 4.1 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы