Question

Решать задачу нужно на древнем ТП7 (Турбо паскаль).Вычислить сумму элементов каждой строки, вводимого С КЛАВИАТУРЫ ДВУМЕРНОГО массива. Обязательно с клавиатуры. Напишите программу пожалуйста.

Answer 1

Готово.................

Answer 2

Программа на Turbo Pascal для вычисления суммы элементов каждой строки двумерного массива, вводимого с клавиатуры:

program SumOfArrayElements;

const
  N = 3; // количество строк
  M = 3; // количество столбцов

var
  arr: array[1..N, 1..M] of Integer;
  i, j, sum: Integer;

begin
  // Ввод двумерного массива с клавиатуры
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      write('Введите элемент arr[', i, ',', j, ']: ');
      readln(arr[i, j]);
    end;
  end;

// Вычисление суммы элементов каждой строки
  for i := 1 to N do
  begin
    sum := 0;
    for j := 1 to M do
    begin
      sum := sum + arr[i, j];
    end;
    writeln('Сумма элементов строки ', i, ' равна ', sum);
  end;

end.