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

Найти сумму элементов каждой четной строки матрицы и произведение элементов каждой нечетной

18.04.2017, 12:54. Показов 2276. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В матрице D(10,15) найти сумму элементов каждой четной строки и произведение элементов каждой нечетной строки. Из полученных сумм и произведений образовать массив X(x1,x2,x3...x10)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.04.2017, 12:54
Ответы с готовыми решениями:

Найти сумму элементов каждой нечетной строки матрицы
Помогите написать программу. Дана действительная квадратная матрица C(n*m). Найти сумму элементов...

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

Найти сумму элементов каждой строки и произведение элементов каждого столбца матрицы
Кто может в Паскале не силён, если можно коментарии что бы разобраться что к чему. Буду очень...

Вычислить и напечатать произведение отличных от нуля элементов каждой нечетной строки заданой матрицы AO.
Вычислить и напечатать произведение отличных от нуля элементов каждой нечетной строки заданой...

3
1754 / 1346 / 1407
Регистрация: 28.10.2016
Сообщений: 4,267
18.04.2017, 13:56 2
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
const n = 10; m = 15;
var
  a: array [1..n, 1..m] of integer;
  b: array [1..n] of real;
  i, j: byte;
begin
  randomize;
  for i := 1 to n do begin
    for j := 1 to m do begin
      a[i,j]:=random(10)+1;
      write(a[i,j]:3,' ');
    end;
    writeln;
  end;
  write('Массив: ');
  for i:=1 to n do begin
    if odd(i) then begin
      b[i]:=1;
      for j:=1 to m do b[i]:=b[i]*a[i,j];
    end else begin
      b[i]:=0;
      for j:=1 to m do b[i]:=b[i]+a[i,j];
    end;
    write(b[i],' ');
  end;
end.
0
Эксперт Pascal/Delphi
6809 / 4566 / 4819
Регистрация: 05.06.2014
Сообщений: 22,438
18.04.2017, 13:59 3
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
const
  n = 10;
  m = 15;
 
var
  a: array[1..n, 1..m] of LongInt;
  b: array[1..n] of real;
  i, j: integer;
  s, p: real;
 
begin
  randomize;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -n * m div 2 + random(n * m);
      Write(a[i, j]:8);
    end;
    writeln;
  end;
  for i := 1 to n do
  begin
    s := 0;
    p := 1;
    if not odd(i) then 
    begin
      for j := 1 to m do
        s := s + a[i, j];
      b[i] := s;
    end
    else
    begin
      for j := 1 to m do
        p := p * a[i, j];
      b[i] := p;  
    end;
  end;
  writeln('Массив B:');
  for j := 1 to n do
    write(b[j], ' ');
end.
0
80 / 80 / 78
Регистрация: 30.12.2015
Сообщений: 256
18.04.2017, 15:03 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
program Project1;
const n=10;m=15;
  var d:array [1..n,1..m] of integer;
      x:array [1..n] of integer;
      i,j:integer;
begin
  for i:=1 to n do begin
    for j:=1 to m do begin
      d[i,j]:=random(3)+1;
      write(d[i,j]:2);
      end;
    writeln;
    end;
  writeln;
  for i:=1 to n do begin
    if odd(i) then x[i]:=1 else x[i]:=0;
    for j:=1 to m do 
      if odd(i) then x[i]:=x[i]*d[i,j] else x[i]:=x[i]+d[i,j];
    writeln(x[i]);
    end;
end.
0
18.04.2017, 15:03
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.04.2017, 15:03
Помогаю со студенческими работами здесь

Найти сумму элементов каждой четной строки
Помогите пожалуйста решить Две задачи отдельно: Дана матрица размером MxN: 1) Найти сумму...

Дана матрица размером M на N. Найти сумму элементов каждой нечётной строки
Помогите пожалуйста решить, заранее спасибо.

Найти и объединить массив max элементов каждой нечетной строки матрицы
Дан массив D, состоящий из n-строк m-столбцов. Найти и объединить массив max элементов каждой...

Найти сумму отрицательных элементов в каждой четной строке и произведение положительных элементов в каждой нечётной стро
Дан двумерный массив размером M*N. Найти сумму отрицательных элементов в каждой четной строке и...


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

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

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