Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Двумерный массив, контур.

40K
17 мая 2010 года
themusicman
15 / / 18.11.2008
Есть задачка
Дана квадратная матрица 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]

Я правильно понимаю? Каким образом можно выбрать этот контур?
40K
17 мая 2010 года
themusicman
15 / / 18.11.2008
Спасибо всем за помощь, но уже помогли на кодебай.нет. Выкладываю свой исходник, а вдруг кому-нибудь пригодиться?)))

Код:
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.

Знаете кого-то, кто может ответить? Поделитесь с ним ссылкой.

Ваш ответ

Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог