Вычисление суммы элементов каждой строки, столбца.

Дана квадратная матрица NxN, содержащая вещественные числа. Найти сумму элементов первого столбца.

Program pr2;

CONST N=3;

TYPE MAS=array [1..N,1..N] of real;

Var a: MAS;

i: 1..3;

j : 1..3;

s:real;

BEGIN

Writeln(‘Введите элементы массива’);

For i:=1 to n do

For j:=1 to n do

Readln(a[i,j]);

{Вывод значений массива}

For i:=1 to n do

begin

For j:=1 to n do

Write (a[i,j]:5:1);

Writeln;

end;

s:=0; j=1;

For i:=1 to n do

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

Writeln(‘Сумма элементов первого столбца = ’,s:5:2);

end.

Вычисление суммы элементов всего двумерного массива.

......

S:=0;

for i:=1 to m do

for j:=0 to n do

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

.............

Задача поиска максимального (минимального) элемента и его индексов.

Ищем максимальный элемент каждой строки :

For i:=0 to m do

begin

max:=a[i,1];

ind_L:=i; {сохраняем номер строки}

ind_C:=1; {заносим номер 1 - первый столбец}

for j:=1 to n do

if a[i,j]>max then begin

max:=a[i,j];

ind_C:=j {сохраняем номер j-ого столбца}

end;

writeln(‘max строки ’,i,’=’,max)

end;

Ищем минимальный элемент каждого столбца :

For j:=0 to n do { перемещаемся по столбцу}

begin

min:=a[1,j];

ind_L:=1; {сохраняем номер строки}

ind_C:=j; {сохраняем номер столбца}

for i:=1 to m do

if a[i,j]<min then begin

min:=a[i,j];

ind_L:=i {сохраняем номер j-ой строки}

end;

writeln(‘min ‘,j,’ столбца’,min)

end;

Алгоритм поиска минимального элемента и его индексов для всего массива.

Min:=a[1,1];

ind_L:=1;

ind_C:=1;

for i:=1 to m do

for j:=1 to n do

if a[i,j]<min then begin

min:=a[i,j]; ind_L:=i; ind_C:=j;

end;