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

@Owod · Регистрация: 20.01.2014

Студворк — интернет-сервис помощи студентам

Задать двумерный массив m * n целых чисел m = 2, n = 3. Вычислить сумму элементов каждой строки

@erl27 · 12.06.2014, 12:15

Pascal

uses crt;
const
  m = 2;
  n = 3;
var
  A: array[1..m, 1..n] of integer;
  S: integer;
  i, j: byte;
  
begin
  writeln('ведите ', m * n, ' элементов:');
  for i := 1 to m do
    for j := 1 to n do 
      readln(a[i, j]);
  ClrScr;
  writeln('Матрица ', m, 'x', n, ':');
  for i := 1 to m do begin
    S := 0;
    for j := 1 to n do begin
      write(a[i, j]:5);
      S := S + a[i, j]
    end;
    writeln('Сумма = ':10, S)
  end
end.

@Owod 0 / 0 / 0 Регистрация: 20.01.2014 Сообщений: 20
		1
	Вычислить сумму элементов каждой строки двумерного массива 12.06.2014, 10:55. Показов 7236. Ответов 1 Метки нет (Все метки) Задать двумерный массив m * n целых чисел m = 2, n = 3. Вычислить сумму элементов каждой строки 0

Опции темы

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

Решение