сумма элементов строк матрицы на Pascal

      Комментарии к записи сумма элементов строк матрицы на Pascal отключены

Главная Форумы Программирование Программирование на Pascal сумма элементов строк матрицы на Pascal

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 1 месяц, 4 нед. назад.

  • Автор
    Сообщения
  • #3781

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

    Решение:

    program arrays_15;
    uses crt;
    var 
      i, j, r, c, counter: integer;
      mas: array[1..100, 1..100] of integer;
      rmas: array[1..100] of integer;
    begin
      write('Количество строк > '); read(r);
      write('Количество столбцов > '); read(c);
      counter:=1;
      for i:=1 to r do
      begin
        for j:=1 to c do
        begin
          write('Элемент №', i, j,' > '); read(mas[i, j]);
          rmas[counter]:=rmas[counter]+mas[i, j];
        end;
        counter:=counter+1;
      end;
      writeln('Массив:');
      for i:=1 to r do
      begin
        for j:=1 to c do
          write(mas[i, j],' ');
        writeln;
      end;
      for i:=1 to r do
        writeln('Сумма элементов ', i, ' строки: ', rmas[i]);
      readkey;
    end.

Для ответа в этой теме необходимо авторизоваться.