16.05.2008, 18:39
общий
это ответ
Здравствуйте, Raevil!
Решение задачи в приложении. Чтобы разобраться с алгоритмом выделения треугольника, нарисуйте на бумаге матрицу и сами определите этот алгоритм, используя размер матрицы, номера строк и столбцов.
Приложение:
uses crt;const n=9;var a:array[1..n,1..n]of integer; i,j,sum:integer;beginclrscr;randomize;Writeln(‘Matrica:‘);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;sum:=0;for i:=n div 2+1 to n dofor j:=n-i+1 to i dosum:=sum+a[i,j];writeln(‘sum=‘,sum);readlnend.