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

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

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

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

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;

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

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;

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

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;

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

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. Ввод элементов массива

for i:=1 to m do

for j:=1 to n do

read(A[i,j]);

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

for i:=1 to m do

begin

for j:=1 to n do

write(A[i,j]);

writeln;

end;

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

for i:=1 to m do

for j:=1 to n do

A[i,j]:=z;

24. Увеличение элементов массива на величину z

(аналогично уменьшение, умножение, деление)

for i:=1 to m do

for j:=1 to n do

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

25. Вычисление элементов массива Bприбавлением к элементам массиваAвеличины z

(аналогично вычитанием, умножением, делением)

for i:=1 to m do

for j:=1 to n do

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

26. Вычисление индексов максимального элемента i_max,j_max

(аналогично минимального)

max:=A[1,1];

imax:=1;

jmax:=1;

for i:=1 to m do

for j:=1 to n do

if A[i,j]>max then

begin

max:=A[i,j];

imax:=i;

jmax:=j;

end;

27. Вычисление суммы элементов 1-й строки

s:=0;

for j:=1 to n do

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

28. Вычисление суммы элементов 1-го столбца

s:=0;

for i:=1 to m do

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