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

Найти сумму и произведение всех положительных элементов массива и заменить нулями все элементы, расположенные на главной диагонали и выше ее.

12.05.2012, 22:35. Показов 1434. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Найти сумму и произведение всех положительных элементов массива и заменить нулями все элементы, расположенные на главной диагонали и выше ее. Массив размером 5×5.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
12.05.2012, 22:35
Ответы с готовыми решениями:

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

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

Заменить на нули все элементы матрицы, расположенные на главной диагонали и выше нее
Дана матрица z(3,3), заменить на нули все ее элементы расположенные на главной диагонали и выше...

Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной диагонали(диагональ-сверху вниз и
Дана матрица A(n,n). Заменить нулями все элементы, расположенные на главной...

1
Нет ТЗ - давай досвидания
746 / 377 / 64
Регистрация: 01.12.2011
Сообщений: 2,250
12.05.2012, 23:27 2
Лучший ответ Сообщение было отмечено _Pavelx_ как решение

Решение

Delphi
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
43
44
45
46
47
48
49
50
51
52
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  n=3;
  m=3;
var
  a:array[1..n,1..m] of integer;
  i,j,k:byte;
  sum:integer;
begin
  randomize;
  k:=0;
  for i:=1 to n do
    for j:=1 to m do
      begin
        a[i,j]:=-10+random(40);
        if a[i,j]>0 then sum:=sum+a[i,j];
        inc(k,1);
        if k=n then
          begin
            writeln(a[i,j]:3);
            k:=0;
          end
        else
          write(a[i,j]:3);
      end;
 
  writeln;
  k:=0;
  for i:=1 to n do
    for j:=i to n do
      a[i,j]:=0;
  for i:=1 to n do
    for j:=1 to m do
      begin
        inc(k,1);
        if k=n then
          begin
            writeln(a[i,j]:3);
            k:=0;
          end
        else
          write(a[i,j]:3);
      end;
  writeln;
  writeln(sum);
  readln;
end.
0
12.05.2012, 23:27
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.05.2012, 23:27
Помогаю со студенческими работами здесь

Найти сумму всех элементов массива , расположенных выше главной диагонали
Дан массив А(n,n) . Найти сумму всех элементов массива , расположенных выше главной диагонали ....

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

Найти сумму и количество положительных элементов, лежащих выше главной диагонали, в каждом столбце матрицы.
1.Найти количество элементов больших среднего арифметического элементов данного массива. Або...

Найти сумму элементов выше главной диагонали двумерного массива
Дан квадратный массив A размером N×N (N – нечетное). Найти сумму элементов выше главной диагонали...


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

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

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