Напишите 3 вариант пожалуйста

Question

Напишите 3 вариант пожалуйста

---

Answer 1

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

begin
  Writeln('*** Исходный массив ***');
  var a:=MatrRandom(7,4,-100,100);
  a.Println(5); Writeln(5*a.ColCount*'-');
  var k:=ReadInteger('Номер строки для замен:');
  a.SetRow(k-1,(a.Row(k-1).Select(x->-x).ToArray));
  Writeln('*** Результирующи массив ***'); a.Println(5)
end.

Пример
*** Исходный массив ***
  -23  -16   65   53
  -24  -99   25   52
   81   61  -76   29
   59  -85    5   72
  -46  -19  -43   12
   29  -17    9  -95
   75   31  -57  -52
--------------------
Номер строки для замен: 3
*** Результирующи массив ***
  -23  -16   65   53
  -24  -99   25   52
  -81  -61   76  -29
   59  -85    5   72
  -46  -19  -43   12
   29  -17    9  -95
   75   31  -57  -52

Answer 2

Const
   N = 7;
   M = 4;
Var
   R:array[1..N,1..M] of shortint;
   i,j,K:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        R[i,j]:=random(201)-100;
        Write(R[i,j]:4,' ')
        End;
    WriteLn
    End;
Write('K = ');ReadLn(K);
WriteLn('Новый массив:');
For j:= 1 to M do
    R[K,j]:=-R[K,j];
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(R[i,j]:4,' ');
    WriteLn
    End;
End.