Найти сумму элементов из заштрихованной области массива 9x9. Ширина полосы задается пользователем: 1 - диагонали, 2 - диагонали и элементы над и под диагоналями и т. д.
если пользователь ввел 1, то прога должна считать только сумму диагоналей, если 2, то еще плюс к этому сумму елементов, расположенных под диагоналями, максимальная ширина полосы - 5
Сумма элементов из заштрихованной области двумерного массива
for i:=1 to 9 do
for j:=1 to 9 do
if abs(i-j)<width then inc(sum, A[i,j]);
A - массив, width - ширина полосы, sum - сумма
for j:=1 to 9 do
if abs(i-j)<width then inc(sum, A[i,j]);
A - массив, width - ширина полосы, sum - сумма
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Ну а где сумма то считается?
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Кто-нибудь, помогите решить!!!!!!!!!!!!!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Кто-нибудь, помогите решить!!!!!!!!!!!!!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Кто-нибудь, помогите решить!!!!!!!!!!!!!
--------------------------------------------------------------------------------
Добавлено сообщение
--------------------------------------------------------------------------------
Кто-нибудь, помогите решить!!!!!!!!!!!!!
Стучите в асю 11один11-5шесть5шесть, обсудим.
Повторяю еще раз, громко и печатными буквами:
sum:=0;
for i:=1 to 9 do
for j:=1 to 9 do
if abs(i-j)<width then inc(sum, A[i,j]);
writeln('Сумма элементов равна ',sum);
Вы, похоже, не стали себя утруждать не только изучением программирования, но и разбором предоставленного вам кода.
sum:=0;
for i:=1 to 9 do
for j:=1 to 9 do
if abs(i-j)<width then inc(sum, A[i,j]);
writeln('Сумма элементов равна ',sum);
Вы, похоже, не стали себя утруждать не только изучением программирования, но и разбором предоставленного вам кода.
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.