Question

В массиве F(1:2, 1:3) определить сумму S элементов второй строки и каждый элемент третьего столбца умножить на S. В паскале.

Answer 1

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

begin
  Writeln('*** Исходный массив ***');
  var f:=MatrRandom(2,3,-99,99);
  f.Println(8); Writeln(8*f.ColCount*'-');
  var s:=f.Row(1).Sum;
  Writeln('Сумма по 2й строке равна ',s);
  Writeln('*** Полученный массив ***');
  f.SetCol(2,f.Col(2).Select(t->t*s).ToArray);
  f.Println(8)
end.

Пример
*** Исходный массив ***
     -74     -10      38
     -89      91     -18
------------------------
Сумма по 2й строке равна -16
*** Полученный массив ***
     -74     -10    -608
     -89      91     288

Answer 2

Для выполнения этой задачи на Паскале, вам потребуется определить массив F, затем найти сумму элементов второй строки и умножить каждый элемент третьего столбца на эту сумму. Вот как это может выглядеть на Паскале:

pascalCopy code
program ArrayOperations;
var
  F: array[1..2, 1..3] of Integer;
  S, i, j: Integer;

begin
  { Заполните массив F значениями }
  for i := 1 to 2 do
    for j := 1 to 3 do
      F[i, j] := ...; // Заполните массив значениями

  { Найдите сумму элементов второй строки }
  S := 0;
  for j := 1 to 3 do
    S := S + F[2, j];

  { Умножьте каждый элемент третьего столбца на S }
  for i := 1 to 2 do
    F[i, 3] := F[i, 3] * S;

  { Выведите результат }
  writeln('Сумма элементов второй строки: ', S);
  writeln('Массив после умножения:', F[1, 3], ' ', F[2, 3]);

  readln;
end.

В этом примере ... следует заменить реальными значениями для элементов массива F. После запуска программы вы увидите сумму элементов второй строки и измененный массив F с умноженными элементами третьего столбца.