В двумерном массиве заменить все отрицательные элементы на противоположные - 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.

Объяснение кода листинга программы

  1. В начале кода объявляется константа n, которая определяет размерность двумерного массива (в данном случае 10 на 10).
  2. Затем определяется тип двумерного массива matr, который является массивом целых чисел размером от 1 до n по двум измерениям.
  3. Далее следует процедура Print, которая принимает двумерный массив a в качестве параметра и выводит его элементы на экран.
  4. Затем объявляются переменные i и j, которые будут использоваться в качестве индексов для обхода двумерного массива.
  5. Создается двумерный массив a размером n на n и инициализируется случайными числами от -75 до 209.
  6. Вызывается процедура Print для вывода начального состояния массива a.
  7. Затем происходит обход массива a с целью замены всех отрицательных элементов на противоположные.
  8. Наконец, вызывается процедура Print для вывода измененного состояния массива a.

Оцени полезность:

11   голосов , оценка 3.636 из 5
Похожие ответы