Посчитать сумму элементов, расположенных по периметру массива

@Khizhnjak · Регистрация: 15.12.2016

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

10) Заполнить случайными значениями матрицу произвольного размера, вывести на экран. Посчитать сумму элементов, расположенных по периметру массива.

@ZX Spectrum-128 · 09.05.2017, 21:17

Чуть подправьте.
Найти сумму элементов, находящихся по периметру матрицы и сумму элементов на ее диагоналях

@JuriiMW · 10.05.2017, 07:40

Pascal

begin
  var n := ReadInteger('Столбцов n =');
  var a := MatrRandomInteger(n, n);
  WriteLn('Матрица:'); a.Println;
  var s := a.Row(0).Sum;
  if n > 1 then
    begin
      s += a.Row(n-1).Sum + a.Col(0).Sum + a.Col(n-1).Sum;
      s -= a[0,0] + a[0,n-1] + a[n-1,0] + a[n-1,n-1];
    end;
  WriteLn('Сумма элементов по периметру = ', s);
end.

@Khizhnjak 0 / 0 / 0 Регистрация: 15.12.2016 Сообщений: 20
		1
	Посчитать сумму элементов, расположенных по периметру массива 09.05.2017, 16:54. Показов 2365. Ответов 2 Метки 1 курс, вуз, задача, задача, информатика, с (Все метки) 10) Заполнить случайными значениями матрицу произвольного размера, вывести на экран. Посчитать сумму элементов, расположенных по периметру массива. 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	09.05.2017, 21:17	2
	Чуть подправьте. Найти сумму элементов, находящихся по периметру матрицы и сумму элементов на ее диагоналях 0

	10.05.2017, 07:40

Посчитать сумму элементов, расположенных по периметру массива

Решение