Найти сумму всех элементов по периметру матрицы

19.12.2012, 22:37. **Показов** 1205. **Ответов** 1

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

Вводится целочисленная матрица N*M.
Найти сумму всех элементов по периметру матрицы.

@К-Мишель · 19.12.2012, 23:11

Pascal

var
 a:array[1..100,1..100] of integer;
 i,j,s,n,m:integer;
begin
 readln(n,m);
 s:=0;
 for i:=1 to n do
  for j:=1 to m do
  begin
   readln(a[i,j]);
   if i=1 then s:=s+a[i,j] else
   if i=n then s:=s+a[i,j] else
   if j=1 then s:=s+a[i,j] else
   if j=m then s:=s+a[i,j];
  end;
 writeln(s);
end.

Kukushia
		1
	Найти сумму всех элементов по периметру матрицы 19.12.2012, 22:37. Показов 1205. Ответов 1 Метки нет (Все метки) Вводится целочисленная матрица N*M. Найти сумму всех элементов по периметру матрицы.

	19.12.2012, 23:11

Найти сумму всех элементов по периметру матрицы

Решение