В квадратной матрице поменять местами две строки с заданными номерами

@MaximR · Регистрация: 09.12.2014

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

В квадратной матрице А 1).поменять местами две строки с заданными номерами; 2) сформировать из элементов полученной в результате предыдущего преобразования матрицы, которые лежат на главной диагонали и под ней, нижнюю треугольную матрицу С. 3) Вычислить сумму положительных элементов, расположенных под главной диагональю С.

Прошу помощи!

@Constantin Cat · 10.04.2015, 14:06

Pascal

const
  n=10;
var
  a,c:array[1..n,1..n]of integer;
  b,i,j:integer;
begin
  {}
  writeln('Matrix A:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(50)-25;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  {}
  writeln('Matrix C:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if j<=i then c[i,j]:=a[i,j]
                  else c[i,j]:=0;
          write(c[i,j]:4);
        end;
      writeln;
    end;
  {}
  b:=0;
  for i:=1 to n do
    for j:=1 to i do
      if c[i,j]>0 then inc(b,c[i,j]);
  write('Summa:=',b);
  readln;
end.

Добавлено через 17 минут
Забыл о перестановке. Исправленный вариант:

Pascal

const
  n=10;
var
  a,c:array[1..n,1..n]of integer;
  b,i,j:integer;
begin
  {}
  writeln('Matrix A:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(50)-25;
          write(a[i,j]:4);
        end;
      writeln;
    end;
  {}
  repeat
    write('Line 1:');
    readln(i);
  until i in [1..n];
  repeat
    write('Line 2:');
    readln(j);
  until j in [1..n];
  {}
  for b:=1 to n do
    begin
      a[i,b]:=a[i,b]+a[j,b];
      a[j,b]:=a[i,b]-a[j,b];
      a[i,b]:=a[i,b]-a[j,b];
    end;
  writeln('Change Matrix A:');
  for i:=1 to n do
    begin
      for j:=1 to n do
          write(a[i,j]:4);
      writeln;
    end;
  {}
  writeln('Matrix C:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if j<=i then c[i,j]:=a[i,j]
                  else c[i,j]:=0;
          write(c[i,j]:4);
        end;
      writeln;
    end;
  {}
  b:=0;
  for i:=1 to n do
    for j:=1 to i do
      if c[i,j]>0 then inc(b,c[i,j]);
  write('Summa:=',b);
  readln;
end.

@MaximR 0 / 0 / 0 Регистрация: 09.12.2014 Сообщений: 5
		1
	В квадратной матрице поменять местами две строки с заданными номерами 09.04.2015, 16:14. Показов 1411. Ответов 1 Метки нет (Все метки) В квадратной матрице А 1).поменять местами две строки с заданными номерами; 2) сформировать из элементов полученной в результате предыдущего преобразования матрицы, которые лежат на главной диагонали и под ней, нижнюю треугольную матрицу С. 3) Вычислить сумму положительных элементов, расположенных под главной диагональю С. Прошу помощи! 0

	10.04.2015, 14:06

В квадратной матрице поменять местами две строки с заданными номерами

Решение