0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 7
1

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

28.04.2013, 17:10. Показов 1688. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Все элементы матрицы X (n x n), лежащие выше второстепенной диагонали заменить количеством положительных элементов, лежащих на главной диагонали.
P.s Тему с аналогичным вопросом нашел, но ответа в ней не было, прошу помочь написать программу, либо дать ссылку на тему с ответом. Спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.04.2013, 17:10
Ответы с готовыми решениями:

Все нулевые элементы матрицы X (n x n), заменить суммой элементов, лежащих на второстепенной диагонали
Для заданий № 1 и № 2 используется исходная матрица X (n x m) , 4 <n<10. 4<m<10. Для задания № 3...

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

Заменить нулями все отрицательные элементы матрицы, лежащие выше главной диагонали
:scratch: Если все элементы главной диагонали квадратной целочисленной матрицы упорядочены по...

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

2
424 / 424 / 338
Регистрация: 25.06.2012
Сообщений: 668
29.04.2013, 16:20 2
Лучший ответ Сообщение было отмечено bubulgum как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
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.
1
0 / 0 / 0
Регистрация: 28.04.2013
Сообщений: 7
12.05.2013, 19:58  [ТС] 3
Огромное спасибо! какое то время не было доступа в интернет, поэтому так поздно ответил. Ещё раз благодарю!
0
12.05.2013, 19:58
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2013, 19:58
Помогаю со студенческими работами здесь

Заменить нулями элементы матрицы, лежащие одновременно выше главной и выше побочной диагонали
Здравствуйте.Знаю, что тут не любят когда кто-то просит решить задачу без приложенных попыток...

Заменить на -1 элементы матрицы, лежащие выше главной диагонали
1. Дан двумерный массив размерности 10х10. Заполнить его случайными числами на отрезке . Заменить...

Заменить нулями элементы матрицы, лежащие выше главной диагонали
Дана квадратная матрица порядка M. Заменить нулями элементы матрицы, лежащие выше главной...

Заменить нулями элементы матрицы, лежащие выше главной диагонали
всем привет, помогите решить:дана квадратная целочисленная матрица размера 6на6. заменить нулями...

Обнулить элементы матрицы, лежащие одновременно выше главной диагонали и выше побочной диагонали
Дана квадратная матрица порядка M. Обнулить элементы матрицы, лежащие одновременно выше главной...

Заменить буквой "а" все элементы символьной матрицы, лежащие выше главной диагонали
Новичок. Есть задача. Помогите с написанием кода, в Delphi или с++ было бы довольно просто все...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru