Question

Дан двумерный массив, размерности 3 х 3. Найти максимум и минимум. Поменять max и min местами.

Answer 1

Var a:array [0..2,0..2] of integer;

Position:array[0..1,0..1] of byte;

i,j,max,min:integer;

Procedure print(a:array of array of integer);

Begin

For i:integer:=low(a) to high(a) do begin

For j:integer:=low(a[i]) to high (a[i]) do

Write(a[i,j],' ');

Writeln;

End;

End;

Begin

Max:=integer.minvalue;

min:=integer.maxvalue;

for i:=low(a) to high(a) do

For j:=low(a[i]) to high(a[i]) do

A[i,j]:=random(10);

Print(a);

for i:=low(a) to high(a) do

For j:=low(a[i]) to high(a[i]) do

Begin

If (a[i,j]<min) then begin

Min:=a[i,j]; position [0,0]:=i; position [0,1]:=j;

End;

If (a[i,j]>max) then begin

Max:=a[i,j]; position [1,0]:=i; position [1,1]:=j;

End;

End;

Swap(a[position[0,0], position [0,1]],a[position [1,0]],a[position [1,1]]);

Print(a);

End.

Answer 2

матрица заполняется случайно

программа на pascalabc

Var

max,min,mina,minb,maxa,maxb,a,b,c: integer;

mas: array[1..3,1..3] Of integer;

Begin

writeln('до :');

For a:=1 To 3 Do

For b:=1 To 3 Do

Begin

mas[a,b] := random(100);

If mas[a,b]>max Then

Begin

max := mas[a,b];

maxa := a;

maxb := b;

End;

If (min=0)Or(mas[a,b]<min) Then

Begin

min := mas[a,b];

mina := a;

minb := b;

End;

write(mas[a,b],' ');

End;

c := mas[maxa,maxb];

mas[maxa,maxb] := mas[mina,minb];

mas[mina,minb] := c;

writeln;

writeln('после :');

For a:=1 To 3 Do

For b:=1 To 3 Do

write(mas[a,b],' ');

Answer 3

Для нахождения максимального и минимального элементов в двумерном массиве размерности 3x3 и их замены местами, вы можете воспользоваться следующим кодом на Python:

pythonCopy code
# Исходный двумерный массив 3x3
matrix = [
    [3, 1, 4],
    [1, 5, 9],
    [2, 6, 5]
]

# Найдем максимум и минимум в массиве
max_value = max(map(max, matrix))
min_value = min(map(min, matrix))

# Найдем индексы максимума и минимума в массиве
max_index = [(i, j) for i, row in enumerate(matrix) for j, val in enumerate(row) if val == max_value][0]
min_index = [(i, j) for i, row in enumerate(matrix) for j, val in enumerate(row) if val == min_value][0]

# Поменяем местами максимум и минимум
matrix[max_index[0]][max_index[1]], matrix[min_index[0]][min_index[1]] = min_value, max_value

# Выведем итоговый массив
for row in matrix:
    print(row)

Этот код найдет максимальное и минимальное значения в массиве, а затем поменяет их местами, сохраняя исходную структуру массива.