Question

Даны две матрицы X(5,5) и Y(4,4). Найти сумму отрицательных элементов матриц и сравнить, у какой из матриц она больше. Нужно сделать программу на языке Паскаль через массив. Среда разработки Pascal ABCNET.

Answer 1

Var
  X: array [1..5, 1..5] of real;
  Y: array [1..4, 1..4] of real;
  i, j: byte;
  SumX, SumY: real;
begin
SumX := 0; SumY := 0;
writeln('Массив X':28);
for i := 1 to 5 do
begin
  for j := 1 to 5 do
  begin
    X[i, j] := random*40-20;
    if X[i, j] < 0 then SumX := SumX + X[i, j];
    write(X[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Массив Y':28);
for i := 1 to 4 do
begin
  for j := 1 to 4 do
  begin
    Y[i, j] := random*40-20;
    if Y[i, j] < 0 then SumY := SumY + Y[i, j];
    write(Y[i, j]:9:4);
  end;
  writeln;
end;
writeln;
writeln('Сумма отрицательных массива X = ', SumX:9:4);
writeln('Сумма отрицательных массива Y = ', SumY:9:4);
if SumX > SumY then writeln('Сумма отрицательных X - больше.')
else if SumX < SumY then writeln('Сумма отрицательных Y - больше.')
else writeln('Сумма отрицательных X и Y равны.')
end.

Answer 2

Для решения данной задачи на языке Паскаль через массивы можно воспользоваться следующим кодом:

pascalCopy code
program SumOfNegativeElements;

const
  N = 5;
  M = 4;

type
  TArray5x5 = array[1..N, 1..N] of Integer;
  TArray4x4 = array[1..M, 1..M] of Integer;

function SumOfNegatives(matrix: TArray5x5): Integer;
var
  i, j: Integer;
  sum: Integer;
begin
  sum := 0;
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      if matrix[i, j] < 0 then
        sum := sum + matrix[i, j];
    end;
  end;
  Result := sum;
end;

procedure FillMatrix(var matrix: TArray5x5);
var
  i, j: Integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      Write('Введите элемент [', i, ',', j, ']: ');
      ReadLn(matrix[i, j]);
    end;
  end;
end;

procedure Main;
var
  X: TArray5x5;
  Y: TArray4x4;
  sumX, sumY: Integer;
begin
  WriteLn('Введите матрицу X(5,5):');
  FillMatrix(X);

  WriteLn('Введите матрицу Y(4,4):');
  FillMatrix(Y);

  sumX := SumOfNegatives(X);
  sumY := SumOfNegatives(Y);

  WriteLn('Сумма отрицательных элементов матрицы X: ', sumX);
  WriteLn('Сумма отрицательных элементов матрицы Y: ', sumY);

  if sumX > sumY then
    WriteLn('Сумма отрицательных элементов матрицы X больше.')
  else if sumX < sumY then
    WriteLn('Сумма отрицательных элементов матрицы Y больше.')
  else
    WriteLn('Суммы отрицательных элементов матрицы X и Y равны.');
end;

begin
  Main;
end.

После запуска программы, она попросит ввести элементы матрицы X(5,5) и матрицы Y(4,4), затем вычислит суммы отрицательных элементов и сравнит их. Результат сравнения будет выведен на экран.