Фрагменты вычисления характеристик строк и столбцов двумерного массива

Характеристика

Для каждой строки

Для каждого столбца

1. Сумма

s

for i:=1 to m do

begin

s[i]:=0;

for j:=1 to n do

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

end;

for j:=1 to n do

begin

s[j]:=0;

for i:=1 to m do

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

end;

2. Произведение

p

for i:=1 to m do

begin

p[i]:=1;

for j:=1 to n do

p[i]:=p[i]*A[i,j];

end;

for j:=1 to n do

begin

p[j]:=1;

for i:=1 to m do

p[j]:=p[j]*A[i,j];

end;

3. Максимальное значение

max

for i:=1 to m do

begin

max[i]:=A[i,1];

for j:=1 to n do

if A[i,j]>max[i]

then max[i]:=A[i,j];

end;

for j:=1 to n do

begin

max[j]:=A[1,j];

for i:=1 to m do

if A[i,j]>max[j]

then max[j]:=A[i,j];

end;

4. Минимальное значение

min

for i:=1 to m do

begin

min[i]:=A[i,1];

for j:=1 to n do

if A[i,j]<min[i]

then min[i]:=A[i,j];

end;

for j:=1 to n do

begin

min[j]:=A[1,j];

for i:=1 to m do

if A[i,j]<min[j]

then min[j]:=A[i,j];

end;

1.  Ввод элементов массива

writeln('Введи массив A');

for i:=1 to m do

for j:=1 to n do

read(A[i,j]);

2.  Вывод элементов массива

writeln('Массив A');

for i:=1 to m do

begin

for j:=1 to n do

write(A[i,j]:10:3);

writeln;

end;

3.  Замена элементов массива на величину z

for i:=1 to m do

for j:=1 to n do

A[i,j]:=z;

4.  Увеличение элементов массива на величину z (аналогично уменьшение, умножение, деление)

for i:=1 to m do

for j:=1 to n do

A[i,j]:=A[i,j]+z;

5.  Вычисление элементов массива B прибавлением к элементам массива A величины z (аналогично отниманием, умножением, делением)

for i:=1 to m do

for j:=1 to n do

B[i,j]:=A[i,j]+z;