Программирование и алгоритмизация

1. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на ноль. В программе использовать динамическую память. Алгоритм пояснить.

2. Написать программу, реализующую сортировку первой строки двумерного числового массива в порядке убывания. В программе использовать динамическую память. Алгоритм пояснить.

3. Написать программу, реализующую сортировку первого столбца двумерного числового массива в порядке возрастания. В программе использовать динамическую память. Алгоритм пояснить.

4. Написать программу, реализующую транспонирование матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

5. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на единицу. В программе использовать динамическую память. Алгоритм пояснить.

6. Написать программу, формирующую единичную матрицу, заданного размера, в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

7. Написать программу, реализующую перестановку первой строки на первый столбец в квадратной матрице. В программе использовать динамическую память. Алгоритм пояснить.

8. Написать программу, реализующую поиск минимального элемента в двумерном массиве. В программе использовать динамическую память. Алгоритм пояснить.

9. Написать программу, реализующую обнуление главной диагонали матрицы, хранящейся в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

10. Написать программу, реализующую поиск по указанному значению элемента двумерного массива, хранящегося в динамической памяти. В программе использовать динамическую память. Алгоритм пояснить.

11. Написать программу сортировки первой строки двухмерного массива в порядке возрастания значений. В программе использовать динамическую память. Алгоритм пояснить.

Решение задач

1. Написать программу, производящую замену всех элементов двумерного числового массива, имеющих заданное значение, на ноль. В программе использовать динамическую память. Алгоритм пояснить.

var a: array [,] of integer;

    st,sl,b: integer;

 

begin

  write ('Введите количество строк массива - ');

  readln (st);

  write ('Введите количество столбцов массива - ');

  readln (sl);  

  SetLength(a,st,sl);

  

  for var i:=0 to st-1 do

    for var j:=0 to sl-1 do

    a[i,j] := Random(10)+1;

 

  writeln ('Исходный массив');

  for var i:=0 to st-1 do begin

    for var j:=0 to sl-1 do begin

      write(a[i,j]:5);

    end;

    writeln;

  end;

   

write ('Введите число от 1 до 10 - ');

  readln (b);

  for var i:=0 to st-1 do begin

    for var j:=0 to sl-1 do begin

      if a[i,j]=b then begin

        a[i,j]:=0;

      end;

    end;

  end;

  

  writeln ('Преобразованный массив');

  for var i:=0 to st-1 do begin

    for var j:=0 to sl-1 do begin

      write(a[i,j]:5);

    end;

    writeln;

  end;

end.