Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали

@bubulgum · Регистрация: 28.04.2013

Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали.
P.s Тему с аналогичным вопросом нашел, но ответа в ней не было, прошу помочь написать программу, либо дать ссылку на тему с ответом. Спасибо.

@Reveng · 29.04.2013, 16:20

Pascal

uses crt;
 
const 
  nmax = 10;
  
var 
    a : array[1..nmax,1..nmax] of integer;
    n, i, j, count : integer;
    
begin
  repeat
    Write('Размер матрицы до (n = ', nmax, ') n = ');
    Readln(n);
  until n in [1..nmax];
  Writeln('Введите элементы матрицы: ');
  for i:=1 to n do
    for j:=1 to n do
      begin
        Write('A[',i,';',j,'] = ');
        Readln(A[i, j]);
      end;
  Writeln('Исходная матрица:');
  for i:=1 to n do
    begin
      for j:=1 to n do  write(a[i,j]:4, ' ');
      writeln;
    end;
  count := 0;
  for i := 1 to n do if A[i, i] > 0 then inc(count);
  Writeln('Количество положителньых: ', count);
  Writeln('Результат');
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if j < n-i+1 then a[i,j] := count;
           write(A[i,j]:4, ' ');
        end;
      writeln
    end;
  Readln;
end.

@bubulgum · 12.05.2013, 19:58 **[ТС]**

Огромное спасибо! какое то время не было доступа в интернет, поэтому так поздно ответил. Ещё раз благодарю!

@bubulgum 0 / 0 / 0 Регистрация: 28.04.2013 Сообщений: 7
		1
	Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали 28.04.2013, 17:10. Показов 1513. Ответов 2 Метки нет (Все метки) Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали. P.s Тему с аналогичным вопросом нашел, но ответа в ней не было, прошу помочь написать программу, либо дать ссылку на тему с ответом. Спасибо. 0

@bubulgum 0 / 0 / 0 Регистрация: 28.04.2013 Сообщений: 7
	12.05.2013, 19:58 [ТС]	3
	Огромное спасибо! какое то время не было доступа в интернет, поэтому так поздно ответил. Ещё раз благодарю! 0

Опции темы

Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали

Решение