Фрагменты операций с двумерными массивами

Операция

Фрагмент программы

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];

Операция

Фрагмент программы

1. Перестановка элементов 1-й и 2-й строк двумерного массива

for j:=1 to n do

begin

c:=A[1,j];

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

A[2,j]:=c;

end;

2. Перестановка элементов 1-го и 2-го столбцов двумерного массива

for i:=1 to m do

begin

c:=A[i,1];

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

A[i,2]:=c;

end;

3. Сортировка элементов одномерного массива по возрастанию

(аналогично по убыванию)

for k:=1 to n-1 do

begin

min:=A[k];

imin:=k;

for i:=k+1 to n do

if A[i]<min then

begin

min:=A[i];

imin:=i;

end;

c:=A[k];

A[k]:=A[imin];

A[imin]:=c;

end;

4. Сортировка строк двумерного массива по возрастанию первых элементов строк

(аналогично по убыванию)

for k:=1 to m-1 do

begin

min:=A[k,1];

imin:=k;

for i:=k+1 to m do

if A[i,1]<min then

begin

min:=A[i,1];

imin:=i;

end;

for j:=1 to n do

begin

c:=A[k,j];

A[k,j]:=A[imin,j];

A[imin,j]:=c;

end;

end;

5. Сортировка столбцов двумерного массива по возрастанию первых элементов столбцов

(аналогично по убыванию)

for k:=1 to n-1 do

begin

min:=A[1,k];

jmin:=k;

for j:=k+1 to n do

if A[1,j]<min then

begin

min:=A[1,j];

jmin:=j;

end;

for i:=1 to m do

begin

c:=A[i,k];

A[i,k]:=A[i,jmin];

A[i,jmin]:=c;

end;

end;