Суммирование элементов побочной диагонали

4. Суммирование элементов побочной диагонали

Алгоритм имеет смысл только для массива, в котором количество столбцов равно количеству строк. К элементам побочной диагонали относятся следующие элементы: а₁₅, а₂₄, а₃₃, а₄₂, а₅₁. Как видно из примера, индексы строк возрастают, одновременно индексы столбцов убывают. Поэтому для исполнения алгоритма организуем цикл, который будет менять номера строк, одновременно в цикле будем менять номера столбцов.

Реализация:

s:=0;

j:=n;

for i:=1 to n do

begin

s:=s+a[i, j];

j:=j-1;

end;

writeln(‘s=’, s);

5. Суммирование элементов строк (столбцов)

Поскольку строка (столбец) - это есть одномерный массив, то для суммирования элементов строки (столбца) используют алгоритм «Суммирование элементов одномерного массива». Этот алгоритм выполняется столько раз, сколько в массиве строк (столбцов).

Реализация:

for i:=1 to n do

begin

s:=0; {обнуляем s}

{суммирование элементов i строки}

for j:=1 to m do

s:=s+a[i, j];

writeln(‘сумма ’, i, ‘ строки= ’, s);

end;

6. Поиск минимального (максимального) элемента каждой строки (столбца)

В данном алгоритме необходимо применить алгоритм «Поиск минимального (максимального) элемента в одномерном массиве».

Реализация:

for i:=1 to n do

begin

min:=a[i, 1]; {запоминаем первый элемент в i-й строке}

n_min:=1;{запоминаем номер элемента в i-й строке}

{поиск минимального в i–й строке}

for j:=2 to m do

if a[i, j]<min then begin

min:=a[i, j];

n_min:=j;

end;

writeln(‘минимальный элемент в ’, i, ‘ -й строке ’, min);

writeln(‘номер минимального элемента в ’, i, ‘ -й строке ’, n_min);

end;

7. Сортировка по возрастанию (убыванию) элементов каждой строки (столбца) в двумерном массиве

В данном алгоритме необходимо применить алгоритм «Сортировка элементов в одномерном массиве» для каждой строки (столбца). В алгоритме строки сортируются по возрастанию.

Реализация:

for k:=1 to n do

for i:=1 to m-1 do

begin

{поиск минимального в k–й строке}

min:=a[k, i];

n_min:=i;

for j:=i+1 to m do

if a[k, j]<min then begin

min:=a[k, j];

n_min:=j;

end;

a[k, n_min]:=a[k, i];

a[k, i]:=min;

end;

⇐ Предыдущая 123 Следующая ⇒