program program_1;
uses crt;
var a:array[1..100,1..100] of Integer;
i,j,n:integer; s:integer;
begin
clrscr;
write('Vvedite razmernost matrici: ');
readln(n);
for i:=1 to n do
for j:=1 to n do begin
write('element [',i,':',j,']:');
readln(a[i,j]);
end;
writeln;
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
for i:=1 to n do
for j:=1 to n do
begin
if (i=1)or(j=1)or(i=n)or(j=n) then s:=s+a[i,j];
end;
writeln;
writeln('Summa elementov po konturu: ',s);
readln;
end.
Двумерный массив, контур.
Есть задачка
Дана квадратная матрица A произвольной размерности. Определить сумму значений элементов, стоящих по контуру данной матрицы.
Т.е. контур, это элементы, которые находятся по краям матрицы?
[COLOR="Red"]11 12 13 14 15[/COLOR]
[COLOR="Red"]21[/COLOR] 22 23 24 [COLOR="Red"]25[/COLOR]
[COLOR="Red"]31[/COLOR] 32 33 34 [COLOR="Red"]35[/COLOR]
[COLOR="Red"]41[/COLOR] 42 43 44 [COLOR="Red"]45[/COLOR]
[COLOR="Red"]51 52 53 54 55[/COLOR]
Я правильно понимаю? Каким образом можно выбрать этот контур?
Дана квадратная матрица A произвольной размерности. Определить сумму значений элементов, стоящих по контуру данной матрицы.
Т.е. контур, это элементы, которые находятся по краям матрицы?
[COLOR="Red"]11 12 13 14 15[/COLOR]
[COLOR="Red"]21[/COLOR] 22 23 24 [COLOR="Red"]25[/COLOR]
[COLOR="Red"]31[/COLOR] 32 33 34 [COLOR="Red"]35[/COLOR]
[COLOR="Red"]41[/COLOR] 42 43 44 [COLOR="Red"]45[/COLOR]
[COLOR="Red"]51 52 53 54 55[/COLOR]
Я правильно понимаю? Каким образом можно выбрать этот контур?
Спасибо всем за помощь, но уже помогли на кодебай.нет. Выкладываю свой исходник, а вдруг кому-нибудь пригодиться?)))
Код: