Найти сумму элементов двумерного массива в заштрихованной области

@dander · Регистрация: 03.12.2010

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

Привет
Проблема))) Нужно найти сумму элементов двумерного массива(3х3) в заштрихованной области

@кот Бегемот · 03.12.2010, 17:38

да какая это проблема: пройти по массиву и просуммировать элементы с условием:
ниже главной диагонали и выше побочной или выше главной и ниже побочной. остальное - индексы. 100 раз решалось.

@dander · 03.12.2010, 17:49 **[ТС]**

да я как бы не особо шарю в паскале
можешь написать прогу подробно пожалста?

@SuPeR XaKer · 03.12.2010, 18:27

Pascal

if (j<=i) and (j<n-i+1)then
первую сумму находим
if(j>=i) and (j>n-i+1)then
вторую сумму находим

@dander · 03.12.2010, 18:40 **[ТС]**

SuPeR XaKer
спасибо за ответ, но я вот попробовал написать и, вообщем.. можешь сказать что там не правильно?

program per;
uses crt;
const
n=3;
var i,j:byte;
a:array [1..n, 1..n] of integer;
s:integer;
begin
randomize;
writeln ('ishodnui massiv:');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
s:=0;
if (j<=i) and (j<n-i+1) then
if (j>=i) and (j>n-i+1) then
write('s=',s);
readln;
end.

@SuPeR XaKer · 03.12.2010, 19:00

Сумму в серой области?

@dander · 03.12.2010, 19:04 **[ТС]**

да, в серой области

@SuPeR XaKer · 03.12.2010, 19:07

Pascal

Uses
 CRT;
const
 n=3;
var
 i,j:byte;
 a:array [1..n,1..n] of integer;
 s,s2:real;
begin
s:=0;
s2:=0;
randomize;
writeln ('ishodnui massiv:');
for i:=1 to n do
begin
 for j:=1 to n do
 begin
  a[i,j]:=random(10)-3;
  write(a[i,j]:4);
   if (j<=i) and (j<=n-i+1) then
    s:=s+a[i,j];
   if (j>=i) and (j>=n-i+1) then
    s2:=s2+a[i,j];
end;
writeln
end;
writeln;
write('S:=',s);
writeln;
write('S2:=',s2);
readln
end.

@dander · 03.12.2010, 19:35 **[ТС]**

спасибо большое, очень выручил)))

Добавлено через 2 минуты
только s1 и s2 нужно было вместе высчитывать, не по отдельности

Добавлено через 2 минуты
иначе центральная цифра два раза считывается

@SuPeR XaKer · 03.12.2010, 19:39

Pascal

1 2	if ((j<=i) and (j<=n-i+1)) or ((j>=i) and (j>=n-i+1)) then s:=s+a[i,j];

Это так трудно?

@dander · 03.12.2010, 19:59 **[ТС]**

еще раз спасибо за помощь))

@dander 0 / 0 / 0 Регистрация: 03.12.2010 Сообщений: 44
	03.12.2010, 19:59 [ТС]	11
	еще раз спасибо за помощь)) 0

@кот Бегемот Платежеспособный зверь 8835 / 4269 / 1621 Регистрация: 28.10.2009 Сообщений: 11,407
	03.12.2010, 17:38	2
	да какая это проблема: пройти по массиву и просуммировать элементы с условием: ниже главной диагонали и выше побочной или выше главной и ниже побочной. остальное - индексы. 100 раз решалось. 0

@dander 0 / 0 / 0 Регистрация: 03.12.2010 Сообщений: 44
	03.12.2010, 17:49 [ТС]	3
	да я как бы не особо шарю в паскале можешь написать прогу подробно пожалста? 0

@dander 0 / 0 / 0 Регистрация: 03.12.2010 Сообщений: 44
	03.12.2010, 18:40 [ТС]	5
	SuPeR XaKer спасибо за ответ, но я вот попробовал написать и, вообщем.. можешь сказать что там не правильно? program per; uses crt; const n=3; var i,j:byte; a:array [1..n, 1..n] of integer; s:integer; begin randomize; writeln ('ishodnui massiv:'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(10); write(a[i,j]:4); end; writeln; end; s:=0; if (j<=i) and (j<n-i+1) then if (j>=i) and (j>n-i+1) then write('s=',s); readln; end. 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,877
	03.12.2010, 19:00	6
	Сумму в серой области? 0

@dander 0 / 0 / 0 Регистрация: 03.12.2010 Сообщений: 44
	03.12.2010, 19:04 [ТС]	7
	да, в серой области 0

@dander 0 / 0 / 0 Регистрация: 03.12.2010 Сообщений: 44
	03.12.2010, 19:35 [ТС]	9
	спасибо большое, очень выручил))) Добавлено через 2 минуты только s1 и s2 нужно было вместе высчитывать, не по отдельности Добавлено через 2 минуты иначе центральная цифра два раза считывается 0

Опции темы