Ввести А, последний нулевой элемент каждой строки заменить на А - PascalABC.NET

Узнай цену своей работы

Формулировка задачи:

Ввести А, последний нулевой элемент каждой строки заменить на А

Решение задачи: «Ввести А, последний нулевой элемент каждой строки заменить на А»

textual
Листинг программы
begin
  var Rows := ReadLnInteger('  Строк = ');
  var Cols := ReadLnInteger('Колонок = ');
  
  WriteLn('Сгенерирован массив случайных чисел:');
  Randomize;
  var a : array [,] of Integer; SetLength(a, Rows, Cols);
  
  for var Row := 0 to Rows-1 do
    begin
      for var Col := 0 to Cols-1 do
        begin
          a[Row, Col] := Random(-10, +10);
          Write(a[Row, Col]:3);
        end;
      WriteLn;
    end;
    
  var А := ReadLnInteger('A =');
  WriteLn('Обработанный массив:');
  for var Row := 0 to Rows-1 do
    begin
      var Col := Cols-1;
      while (Col > -1) and (a[Row, Col] <> 0) do
        Col -= 1;
      if Col > -1 then
        a[Row, Col] := А;
      for Col := 0 to Cols-1 do
        Write(a[Row, Col]:3);
      WriteLn;
    end;
end.

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

  1. Программа считывает количество строк и столбцов из ввода пользователя.
  2. Выводит массив случайных чисел на экран.
  3. Пользователю предлагается ввести значение А.
  4. Программа обрабатывает массив, заменяя нулевые элементы на значение А.
  5. Выводит обработанный массив на экран.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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