Лабораторная работа 6. Двумерные массивы

Замечание: в следующих упражнениях

исходные данные следует присваивать или использовать

константы, ввод с клавиатуры НЕ нужен.

1. Объявить константы CMAX - количество колонок (Columns, col) и RMAX - количество строк (Rows, row) матрицы, A и B - границы отрезка. Заполнить двумерный массив d целыми случайными числами из отрезка [A, B]. Вывести элементы массива в виде прямоугольной матрицы.

Пример

   for row := 1 to RMAX do begin         for col := 1 to CMAX do begin             Write(d[row, col]:4);         end;         WriteLn;     end;

2. Создать двумерный массив-константу вещественных чисел. Вывести его на экран в виде матрицы. Отрицательные значения элементов массива заменить их квадратами. Вывести на экран измененную матрицу.

Пример

const     CMAX = 2;     RMAX = 3;     z : array [1..RMAX, 1..CMAX] of real = (( 3.5, -2.4),                                             ( 9.1,  0.4),                                             (-1.2, -8.7));

3. Найти сумму элементов двумерного массива.

Пример

   s := 0;     for row := 1 to RMAX do begin         for col := 1 to CMAX do begin             s := s + d[row, col];         end;         WriteLn;     end;

4. Найти максимальный элемент каждой строки матрицы и его номер в строке.

Пример. Поиск максимального элемента первой строки.

       row  := 1; { Поиск ведется в первой строке.   }         imax := 1; { Индекс кандидата в максимальные. }         max  := d[row, imax]; { Кандидат в max.       }          for col := 2 to CMAX do begin              if d[row, col] > max then begin                 imax := col;                 max  := d[row, imax];             end;          end;         WriteLn(' Max: d[', row:3, ', ', imax:3, '] = ', max:4);

5. Создать двумерный массив-константу z целых чисел. Объявить два одномерных массива v и t. Заполнить v элементами z по строкам. Заполнить t элементами z по столбцам. Сколько для этого должно быть элементов в массивах v и t?

Пример

const     CMAX = 5;     RMAX = 3;     z : array [1..RMAX, 1..CMAX] of Byte = (( 1, 1, 1, 1, 1),                                             ( 2, 2, 2, 2, 2),                                             ( 3, 3, 3, 3, 3));