Консультация № 138565
29.05.2008, 19:54
0.00 руб.
0 1 1
написать программу которая вычисляет сумму диагоналей элементов квадратной матрицы.

Обсуждение

давно
Профессор
401888
1232
30.05.2008, 18:16
общий
это ответ
Здравствуйте, Степанов Александ Сергеевич!
Решение в приложении.

Приложение:
uses crt;var a:array[1..20,1..20]of integer; n,i,j,sumGl,sumPb,sumDg:integer;beginclrscr;write(‘Vvedite razmernost matricy= ‘);readln(n);randomize;Writeln(‘Matrica:‘);for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(21)-10; write(a[i,j]:4); end; writeln; end;readln;sumGl:=0;sumPb:=0;for i:=1 to n do begin sumGl:=sumGl+a[i,i]; {сумма на главной диагонали} sumPb:=sumPb+a[i,n-i+1]; {сумма на побочной диагонали} end;writeln;writeln(‘Summa na glavnoj diagonali=‘,sumGl);writeln(‘Summa na pobochnoj diagonali=‘,sumPb);if n mod 2=0 then sumDg:=sumGl+sumPb {общая сумма в четной матрице}else if n mod 2<>0 then sumDg:=sumGl+sumPb-a[n div 2+1,n div 2+1]; {общая сумма в нечетной матрице}writeln(‘Summa na obeih diagonaljah=‘,sumDg);readlnend.
Форма ответа