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

@sestrenka141989 · Регистрация: 04.04.2010

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

Помогите кто-нибудь с задачкой, что-то я совсем ее не пойму((
Найти сумму из заштрихованной области квадрата, указанного на рисунке

@Puporev · 07.04.2010, 18:55

Pascal

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    n,i,j:byte;
    sm:integer;
begin
clrscr;
randomize;
repeat
write('Размер матрицы=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
sm:=0;
for i:=1 to n do
 begin
   for j:=1 to n do
    begin
     a[i,j]:=random(10);
     if(j>=i)or(j>=n-i+1)then
       begin
        sm:=sm+a[i,j];
        textcolor(12);
        write(a[i,j]:4);
       end
     else
      begin
       textcolor(15);
       write(a[i,j]:4);
      end;
    end;
   writeln;
 end;
writeln;
textcolor(15);
write('Сумма=',sm);
readln
end.

@sestrenka141989 · 07.04.2010, 19:47 **[ТС]**

а если:

@Puporev · 07.04.2010, 20:55

Pascal

sm:=0;
for i:=1 to n do
for j:=n-i+1 to n do
sm:=sm+a[i,j];

@misteralter · 05.06.2013, 03:53

а для этого:

@Puporev · 05.06.2013, 08:46

Сообщение от misteralter

а для этого:

Что для этого? Задание можно точное и полное написать? А вообще не нужно лезть в чужие темы, а создавать свои.

@misteralter · 07.06.2013, 17:09

Puporev: Извините, уже не нужно.

@sestrenka141989 3 / 3 / 0 Регистрация: 04.04.2010 Сообщений: 49
		1
	Найти сумму элементов массива из заштрихованной области 07.04.2010, 17:39. Показов 1230. Ответов 6 Метки нет (Все метки) Помогите кто-нибудь с задачкой, что-то я совсем ее не пойму(( Найти сумму из заштрихованной области квадрата, указанного на рисунке Миниатюры 0

@sestrenka141989 3 / 3 / 0 Регистрация: 04.04.2010 Сообщений: 49
	07.04.2010, 19:47 [ТС]	3
	а если: Миниатюры 0

@misteralter 0 / 0 / 0 Регистрация: 05.06.2013 Сообщений: 2
	05.06.2013, 03:53	5
	а для этого: Миниатюры 0

@Puporev Почетный модератор 64291 / 47589 / 32740 Регистрация: 18.05.2008 Сообщений: 115,181
	05.06.2013, 08:46	6
	Сообщение от misteralter а для этого: Что для этого? Задание можно точное и полное написать? А вообще не нужно лезть в чужие темы, а создавать свои. 0

@misteralter 0 / 0 / 0 Регистрация: 05.06.2013 Сообщений: 2
	07.06.2013, 17:09	7
	Puporev: Извините, уже не нужно. 0

Опции темы