Сумма элементов двумерного массива

Алгоритм решения задачи: 

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

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

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

Программа на языке Паскаль: 

const
    m = 5;
    n = 4;
 
var
    a: array[1..m,1..n] of byte;
    s: array[1..n] of byte;
    i,j, sum: byte;
 
begin
    randomize;
 
    for i := 1 to m do begin
        for j := 1 to n do begin
            a[i,j] := random(10);
            write (a[i,j]:3)
        end;
        writeln
    end;
 
    writeln ('------------');
 
    for j := 1 to n do begin
        for i := 1 to m do begin
            s[j] := s[j] + a[i,j];
            sum := sum + a[i,j]
        end;
        write (s[j]:3)
    end;
 
    write (' | sum = ', sum);
 
readln
end.

Комментарии

Последовательность Финобаччи

написать функцию которая принимает в качестве параметра номер элемента в последовательности и возвращает соответствующее число Фибаччи

Паскаль

создать массив 5*4 целых чисел из диапазона [-10,10] вывести его на экрна найти сумму и количество положительных элементов второго столбца

Дан двумерный массив.

Дан двумерный массив. Составить программу, которая определяет максимальное из двух чисел: суммы элементов k-й строки и суммы элементов s-го столбца массива.

дана матрица порядка mxn.

дана матрица порядка mxn. разделить из этой матрицы схему b1,b2,...,bn, где i - квадратная сумма элементов меньше 2

в матрице C(n,m) найти сумму

в матрице C(n,m) найти сумму элементов каждой строки и результаты разместить в вектор V. определить номер строки, где эта сумма максимальна. значения параметров n и m задаются с клавиатуры и подчиняются следующим условиям: n<=12,m<=12

матрицы

Дана квадратная матрица 7х7 с элементами типа INTEGER.

1) Создать процедуру нахождения индексов максимального элемента матрицы.

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

Вывести исходную матрицу в виде матрицы и полученный массив.

Второй пункт неверно

Второй пункт неверно сформулирован.
4 5 6 7 8 8
3 4 5 6 7 8
3 4 5 9 5 4
4 5 6 7 8 2
3 4 5 6 4 6
3 4 5 1 2 2
Максимальный элемент 9 - это третья строка четвертый столбец. Каким образом надо перемножить эту строку и столбец?

Дана матрица A(5;4). Найти

Дана матрица A(5;4).
Найти новый одномерный массив B из суммы элементов каждой строки матрицы A.
Найти максимальный элемент матрицы A в 5-й строке.
Заменить последний элемент в 3-й строке матрицы A на найденный максимальный элемент.

Вот, держи)

var
  mas_a: array [1..5, 1..4] of byte;
  mas_b: array [1..5] of byte;
  l, i, j, max: byte;
 
begin
  writeln('Массив А:');
  for i := 1 to 5 do
  begin
    for j := 1 to 4 do
    begin
      mas_a[i, j] := random(9) + 1; 
      write(mas_a[i, j]:2)
    end;
    writeln;
  end;
 
  writeln;
  l := 1;  
  writeln('Массив B: ');
  for i := 1 to 5 do
  begin
    for j := 1 to 4 do
      mas_b[l] := mas_b[l] + mas_a[i, j];
    inc(l);
  end;
 
  for i := 1 to 5 do write(mas_b[i], ' ');
 
  max := mas_a[5, 1]; 
  j := 5;
 
  for i := 2 to 4 do
    if max < mas_a[j, i] then max := mas_a[j, i];
 
  writeln;
  writeln;
  writeln('MAX = ', max);
  writeln;
    for i := 1 to 4 do
    if max = mas_a[j, i] then mas_a[3,4]:=max;
 
    writeln('Измененный массив А:');
 
    for i:=1 to 5 do
    begin
      for j:=1 to 4 do
        write(mas_a[i,j]:2);
        writeln;
        end;
 
end.

Если эта задача решена,то

Если эта задача решена,то поделитесь пожалуйста.Спасибо

Найти произведение

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

в двумерном массиве(размер

в двумерном массиве(размер произвольный) найти сумму нечетных элементов и составить из них одномерный массив.

кому не трудно помогите.

составить программу, позволяющую с помощью датчика случайных чисел свормировать матрицу (NxM). Значения N и M ввести с клавиатуры.
определить:
1) минимальный элемент ниже побочной диагонали
2) произведение ненулевых элементов последней строки

решение задачи

var
n,m,min,i,j:integer;
a:array [1..100,1..100] of integer;
prod:longint;
 
begin
  randomize; //инициализация генератора случайных чисел
 
  readln(n,m);  //ввод размеров матрицы
 
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(20); //заполнение матрицы случайными числами от 0 до 19
 
  for i:=1 to n do
  begin
    for j:=1 to m do
    write(a[i,j]:3,' ');  //вывод получившейся матрицы
    writeln;
  end;
 
  min:=10000;
  for i:=1 to n do
  begin
    j:=m;
    while (j > n-i+1) do
    begin
      if (a[i,j] < min) then min:=a[i,j];  //поиск минимального элемента ниже побочной диагонали
      dec(j);
    end;
  end;
 
  if (min < 10000) then writeln('min = ',min);
 
  prod:=1;
  for i:=1 to m do
  if (a[n,i] > 0) then prod:=prod*a[n,i];  //произведение ненулевых элементов последней  строки
 
  writeln('prod = ',prod);
 
end.

помогите кто знает

. определить явл. ли сумма элементов второго столбца массива нечетным числом.

преобразовать исходную

преобразовать исходную матрицу A(MxN) так, чтобы последний элемент каждой строки был заменен суммой предыдущих элементов той же строки.

ПОЖАЛУЙСТА!!Помогите решить

ПОЖАЛУЙСТА!!Помогите решить задачу. Перемножение двух матриц.
Заданы трехмерные матрицы одинаковых размеров 7x7x7, заполненные случайными числами из диапазона [1, 100]. Перемножить их элементы, имеющие одинаковые индексы, и вывести результаты на экран и записать в файл «output.txt».