Подсчитать сумму чисел с периметра квадрата в матрице

@NICOLAE0612 · Регистрация: 12.05.2016

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

Задача. Подсчитать сумму чисел с периметра квадрата в матрице 7х7. Ниже скину фото, чтоб поняли про какой квадрат я говорю

@Puporev · 12.05.2016, 14:26

Pascal

uses crt;
const n=7;
var a:array[1..n,1..n] of integer;
   i,j,p,s:integer;
begin
clrscr;
randomize;
p:=n div 2+1;
writeln('Матрица:');
s:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(50);
    if abs(i-p)+abs(p-j)=p-1 then
     begin
      textcolor(12);
      s:=s+a[i,j];
     end
    else textcolor(7);
    write(a[i,j]:3);
   end;
  writeln;
 end;
write('Сумма ромба=',s);
readln
end.

@NICOLAE0612 0 / 0 / 0 Регистрация: 12.05.2016 Сообщений: 41
		1
	Подсчитать сумму чисел с периметра квадрата в матрице 12.05.2016, 13:59. Показов 1109. Ответов 1 Метки нет (Все метки) Задача. Подсчитать сумму чисел с периметра квадрата в матрице 7х7. Ниже скину фото, чтоб поняли про какой квадрат я говорю Миниатюры 0

	12.05.2016, 14:26

Подсчитать сумму чисел с периметра квадрата в матрице

Решение