Создать новый массик, состоящий из элементов исходного массива, нулевые элементы которого...

Question

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

Comments

это надо в экселе сделать

Answer 1

// PascalABC.NET 3.2, сборка 1485 от 15.06.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Write('Введите количество строк и столбцов массива: ');
  var (m,n):=ReadInteger2;
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(m,n,-5,5);
  a.Println(3); Writeln(3*a.ColCount*'-');
  var k:=ReadInteger('Введите число А для замены нулей:');
  a.Transform(x->x=0?k:x);    // вот это и вся замена...
  Writeln('*** Результат ***');
  a.Println(3)
end.

Пример
Введите количество строк и столбцов массива: 7 10
*** Исходный массив ***
  2 -4 -1  3 -4 -4  2  1 -5 -1
 -5  2 -3 -1 -1 -5  2 -4 -5 -5
 -4  1  0 -1  5 -1  1  4  3 -4
  2  3  3  1 -3  3 -4  0 -3  3
 -3 -1  4 -3 -1 -5 -1  1  2  2
 -2  4 -2  3  3 -5  1  5  4  3
  1  3  4  5  3 -2  5  2 -4  1
------------------------------
Введите число А для замены нулей: 77
*** Результат ***
  2 -4 -1  3 -4 -4  2  1 -5 -1
 -5  2 -3 -1 -1 -5  2 -4 -5 -5
 -4  1 77 -1  5 -1  1  4  3 -4
  2  3  3  1 -3  3 -4 77 -3  3
 -3 -1  4 -3 -1 -5 -1  1  2  2
 -2  4 -2  3  3 -5  1  5  4  3
  1  3  4  5  3 -2  5  2 -4  1