Для работы с инструкциями в текстовом редакторе Word ... Мы используем панель ссылок

Мы используем панель «Сноски» в приложении «Ссылки».

Назад

​

// 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

Function P(A:integer):boolean;
Var d,K:integer;
Begin
P:=true;
if A < 2 then P:=false
else
   if A > 3 then
      if A mod 2 = 0 then P:=false
      else
         Begin
         K:=Trunc(Sqrt(A));
         d:=3;
         While d <= K do
            Begin
            if A mod d = 0 then P:=false;
            d:=d+2
            End;
         End;
End;
Var
   A,n:integer;
   S:real;
Begin
S:=0;
Write('n = ');ReadLn(n);
Write('Введите n чисел: ');
For n:= 1 to n do
    Begin
    Read(A);
    if P(A) then S:=S+A;
    End;
Write('S = ',S)
End.