В двумерном массиве заменить все отрицательные элементы на противоположные - Pascal ABC
Формулировка задачи:
Двумерный массив задается случайными целыми числами
из диапазона от -75 до 132. Размерность массива устанавливается 10Х10.Заменить все отрицательные элементы на противоположные. Исходный и измененный массивы выводить на экран в виде таблицы.
Решение задачи: «В двумерном массиве заменить все отрицательные элементы на противоположные»
textual
Листинг программы
const n = 10; type matr = array [1..n, 1..n] of integer; procedure Print(a: matr); var i, j: integer; begin for i := 1 to n do begin for j := 1 to n do write(a[i, j]:4); writeln; end; end; var a: matr; i, j: integer; begin randomize; for i := 1 to n do for j := 1 to n do a[i, j] := random(209) - 75; Print(a); for i := 1 to n do for j := 1 to n do if a[i, j] < 0 then a[i, j] := -a[i, j]; writeln; Print(a); end.
Объяснение кода листинга программы
- В начале кода объявляется константа n, которая определяет размерность двумерного массива (в данном случае 10 на 10).
- Затем определяется тип двумерного массива matr, который является массивом целых чисел размером от 1 до n по двум измерениям.
- Далее следует процедура Print, которая принимает двумерный массив a в качестве параметра и выводит его элементы на экран.
- Затем объявляются переменные i и j, которые будут использоваться в качестве индексов для обхода двумерного массива.
- Создается двумерный массив a размером n на n и инициализируется случайными числами от -75 до 209.
- Вызывается процедура Print для вывода начального состояния массива a.
- Затем происходит обход массива a с целью замены всех отрицательных элементов на противоположные.
- Наконец, вызывается процедура Print для вывода измененного состояния массива a.