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

@NoviiMir · Регистрация: 23.09.2012

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

Квадратную матрицу X(n,n) заполнить с помощью датчика случайных чисел целочисленными значениями в пределах от 1 до 100. Найти сумму элементов, находящихся по периметру этой матрицы и сумму элементов на ее диагоналях.

@ermolay · 21.10.2012, 10:44

Pascal

const
  nmax=20;
var
  a: array[1..nmax,1..nmax] of integer;
  n,i,j,s: integer;
begin
  randomize;
  write('Введите размеры матрицы n: ');
  readln(n);
  writeln('Исходная матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      a[i,j]:=random(100)+1;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  writeln;
  
  s:=0;
  for i:=1 to n do
    for j:=1 to n do
      if (i=1)or(j=1)or(i=n)or(j=n)or(i=j)or(i+j=n+1)
        then s:=s+a[i,j];
  writeln('Сумма элементов = ',s);
  readln;
end.

@JuriiMW · 10.05.2017, 07:39

Упс! Промахнулся… ;–)

@NoviiMir 10 / 10 / 2 Регистрация: 23.09.2012 Сообщений: 427
		1
	Найти сумму элементов, находящихся по периметру матрицы и сумму элементов на ее диагоналях 21.10.2012, 10:21. Показов 3112. Ответов 2 Метки нет (Все метки) Квадратную матрицу X(n,n) заполнить с помощью датчика случайных чисел целочисленными значениями в пределах от 1 до 100. Найти сумму элементов, находящихся по периметру этой матрицы и сумму элементов на ее диагоналях. 0

@JuriiMW 5085 / 2656 / 2350 Регистрация: 10.12.2014 Сообщений: 10,052
	10.05.2017, 07:39	3
	Упс! Промахнулся… ;–) 0

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

Решение