Question

Создать целочисленный массив на 5 строк и 5 столбцов,заполнить его случайными числами в пределе от -10 до +10 и найти сумму элементов каждой строки матрицы.PascalABC.net.На модуле crt.Заранее спасибо. program dz8;uses crt;var a:array [1..5,1..5] of integer;i,j,s,n:integer;Begin     TextColor(Green);     for j:=1 to 5 do     for i:=1 to 5 do     a[i,j]:=random(21)-10;          for j:=1 to 5 do              begin          for i:=1 to 5 do              write(a[i,j]:4);             writeln;      end;                                End.Если можно то как найти в этмо коде сумму каждой строки двумерного массива?

Answer 1

program dz8;

uses crt;

var a:array [1..5,1..5] of integer;

i,j,s:integer;

Begin

TextColor(Green);

//Заполнение и вывод массива

for i:=1 to 5 do

begin

for j:=1 to 5 do

begin

a[i,j]:=random(21)-10;

write(a[i, j]:4);

end;

writeln;

end;

writeln;

//Подсчет и вывод суммы каждой строки

for i := 1 to 5 do

begin

s := 0;

for j := 1 to 5 do

s := s + a[i, j];

writeln('Сумма ', i, ' строки = ', s);

end;

writeln;

end.

Answer 2

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

pascalCopy code
program dz8;
uses crt;

var
  a: array [1..5, 1..5] of integer;
  i, j, rowSum: integer;

begin
  Randomize;
  TextColor(Green);

  // Заполнение массива случайными числами
  for j := 1 to 5 do
    for i := 1 to 5 do
      a[i, j] := Random(21) - 10;

  // Вывод массива и расчет суммы каждой строки
  for j := 1 to 5 do
  begin
    rowSum := 0;
    for i := 1 to 5 do
    begin
      write(a[i, j]:4);
      rowSum := rowSum + a[i, j]; // Расчет суммы элементов строки
    end;
    writeln('   Sum: ', rowSum);
  end;
end.

В данном коде мы добавили переменную rowSum, которая инициализируется нулем перед каждым расчетом суммы элементов строки. Затем мы суммируем элементы строки в цикле for i и выводим сумму после завершения цикла for i для каждой строки.

Теперь код будет выводить массив и сумму каждой строки в формате:

mathematicaCopy code
  1   -4   10   -3    8   Sum:  12
 -9   -6    0    2   -8   Sum: -21
  6   -7    3   -9   -1   Sum: -8
  8   -9   -4    5   -2   Sum: -2
  7    6   -7   -6   -7   Sum: -7

Надеюсь, это поможет! Если у вас есть еще вопросы, пожалуйста, дайте мне знать.