Главная

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

сб, 02/12/2011 - 19:41 — tech
Темы учебника
Двумерные массивы
Циклы в Паскале
Алгоритм решения задачи: 

Задача вычисления суммы элементов массива достаточно проста: все элементы массива перебираются и добавляются в одну и ту же переменную. Перебор элементов массива осуществляется в цикле 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.

  • Добавить комментарий

Комментарии

вс, 12/08/2013 - 14:53 — Гость

матрицы

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

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

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

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

  • ответить
вс, 12/08/2013 - 15:11 — tech

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

Второй пункт неверно сформулирован.
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 - это третья строка четвертый столбец. Каким образом надо перемножить эту строку и столбец?

  • ответить
пт, 10/19/2012 - 10:37 — Гость

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

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

  • ответить
ср, 10/10/2012 - 19:06 — Гость

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

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

  • ответить
Пнд, 06/30/2014 - 09:48 — tech

https://pas1.ru/sum-mult-matri

https://pas1.ru/sum-mult-matrix

  • ответить
ср, 05/02/2012 - 17:30 — Гость (не проверено)

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

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

  • ответить
Пнд, 01/16/2012 - 21:20 — Гость

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

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

  • ответить
Втр, 01/17/2012 - 10:20 — Гость

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

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] ) then min:=a[i,j];  //поиск минимального элемента ниже побочной диагонали
      dec(j);
    end;
  end;
 
  if (min ) 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.

  • ответить
ср, 06/25/2014 - 17:01 — Гость

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

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

  • ответить
чт, 12/05/2013 - 00:51 — Гость

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

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

  • ответить
чт, 12/05/2013 - 11:37 — tech

https://pas1.ru/sum-line

https://pas1.ru/sum-line

  • ответить