Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел

@Сергей3н · Регистрация: 14.11.2016

Найти сумму элементов в каждой строке двумерного массива состоящего из целых чисел размер m на n.

@isst · 14.11.2016, 19:28

Pascal

var n, m, i, j:Word;
    s:Integer;
    mas:aRRay of aRRay of Integer;
    
begin
  writeln('Введите размеры массива:');
  readln(n, m);
  SetLength(mas, n);
  writeln('Введите массив:');
  for i:= low(mas) to high(mas) do
  begin
    SetLength(mas[i], m);
    for j:= low(mas[i]) to high(mas[i]) do
      read(mas[i, j]);
  end;
  for i:= low(mas) to high(mas) do
  begin
    s:= 0;
    for j:= low(mas[i]) to high(mas[i]) do
      inc(s, mas[i, j]);
    writeln('Сумма элементов в строке с номером ', i + 1, ' равна ', s);
  end;
end.

@Сергей3н 0 / 0 / 0 Регистрация: 14.11.2016 Сообщений: 19
		1
	Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел 14.11.2016, 09:06. Показов 3110. Ответов 1 Метки нет (Все метки) Найти сумму элементов в каждой строке двумерного массива состоящего из целых чисел размер m на n. 0

Опции темы

Найти сумму элементов в каждой строке двумерного массива, состоящего из целых чисел

Решение