Question

Помогите, пожалуйста! Составить программу на Паскале для обработки двумерного массива размерностью 3*4. Массив заполнить самостоятельно. Вычислить сумму положительных элементов каждой строки двумерного массива.

Answer 1

===== PascalABC.NET =====

begin

 var a := MatrRandom(3, 4, -99, 99);

 a.Println;

 Print('Суммы положительных построчно:');

 a.Rows.Select(r -> r.Where(p -> p > 0).Sum).Print

end.

Answer 2

Конечно! Ниже представлена программа на языке Паскаль для обработки двумерного массива размерностью 3*4 и вычисления суммы положительных элементов каждой строки:

pascalCopy code
program SumPositiveElements;

const
  ROWS = 3;
  COLS = 4;

type
  TwoDArray = array[1..ROWS, 1..COLS] of integer;

procedure FillArray(var arr: TwoDArray);
var
  i, j: integer;
begin
  writeln('Введите элементы массива:');
  for i := 1 to ROWS do
  begin
    for j := 1 to COLS do
    begin
      readln(arr[i, j]);
    end;
  end;
end;

function SumPositiveElementsInRow(const row: array of integer): integer;
var
  i, sum: integer;
begin
  sum := 0;
  for i := Low(row) to High(row) do
  begin
    if row[i] > 0 then
      sum := sum + row[i];
  end;
  Result := sum;
end;

procedure CalculateSumPositiveElements(const arr: TwoDArray);
var
  i: integer;
begin
  writeln('Суммы положительных элементов в каждой строке:');
  for i := 1 to ROWS do
  begin
    writeln('Строка ', i, ': ', SumPositiveElementsInRow(arr[i]));
  end;
end;

var
  myArray: TwoDArray;

begin
  FillArray(myArray);
  CalculateSumPositiveElements(myArray);
end.

При выполнении этой программы, вы будете запрошены ввести 12 элементов (3*4) двумерного массива. После того, как вы заполните массив, программа вычислит сумму положительных элементов в каждой строке и выведет результат на экран.

Убедитесь, что вводите целочисленные значения элементов массива, и программа правильно обработает их.