Найти суммы элементов двумерного массива, расположенных на линиях, параллельных главной диагонали

01.07.2012, 18:03. **Показов** 3676. **Ответов** 1

Найти суммы элементов двухмерного массива целых чисел, расположенных на линиях, параллельных главной диагонали, и ниже нее.

@MayaNash · 02.07.2012, 23:22

Если я правильно поняла...

Pascal

uses crt;
 
var a: array [1..100,1..100] of integer;
    n,i,j,ii,jj,s: integer;
 
 
begin clrscr; randomize;
write('n = '); readln(n);
writeln('Ishodnyi massiv:');
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(10);
  write(a[i,j]:3);
  end;
 writeln;
 end;
writeln;
 
write('Summy: ');
for i:=2 to n-1 do
 begin
 s:=0;
 ii:=i; jj:=1;
 while ii <= n do
  begin
  inc(s,a[ii,jj]);
  inc(ii);
  inc(jj);
  end;
 write(s,' ');
 end;
readkey; end.

TipaMEN
		1
	Найти суммы элементов двумерного массива, расположенных на линиях, параллельных главной диагонали 01.07.2012, 18:03. Показов 3676. Ответов 1 Метки нет (Все метки) Найти суммы элементов двухмерного массива целых чисел, расположенных на линиях, параллельных главной диагонали, и ниже нее.

Опции темы

Найти суммы элементов двумерного массива, расположенных на линиях, параллельных главной диагонали

Решение