Найти сумму элементов массива в заштрихованной области двумерного массива

@AveRtS · Регистрация: 20.12.2012

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

Найти сумму элементов массива в заштрихованной области двумерного массива.

@baquaqa · 24.12.2012, 16:49

Добрый день.

Pascal

program matr_summ;
 
const
 N=3; {размер матрицы (нечетное число)}
 
var
 i,j,summ,M:integer;
 Mas:array [1..N,1..N] of integer;
 
Begin
 
{ fill Mas }
 
 randomize;
 for i:=1 to N do 
 for j:=1 to N do mas[i,j]:=random(100);
 
{ calc. summ }
 
 M:=N div 2 + 1;
 for i:=N downto M do 
 for j:=(N-i)+1 to i do inc(summ,mas[i,j]);
 
{ output }
 
 for i:=1 to N do begin 
 for j:=1 to N do write(mas[i,j]:2,' ');
                  writeln()
                  end;
 write('Summ: ',summ);
End.

@AveRtS 0 / 0 / 0 Регистрация: 20.12.2012 Сообщений: 17
		1
	Найти сумму элементов массива в заштрихованной области двумерного массива 24.12.2012, 16:21. Показов 2792. Ответов 1 Метки нет (Все метки) Найти сумму элементов массива в заштрихованной области двумерного массива. Изображения 0

Опции темы

Найти сумму элементов массива в заштрихованной области двумерного массива

Решение