Дана целочисленная матрица W 4×4, вычислить сумму ее элементов, лежащих ниже главной
Дана целочисленная матрица W(4×4) вычислить сумму ее элементов, лежащих ниже главной диагонали. Использовать операторы For и While.
|
Цитата:
Program zadacha; Uses crt; const n = 4; var Matr: Array[1..n, 1..n] of Integer; i, j: Byte; sum:real; begin Randomize; writeln('Матрица: '); for i:=1 to n do begin for j:=1 to n do begin Matr[i, j]:=Random(99); if (j < i) then sum:=sum+Matr[i,j]; write(Matr[i, j]:4); end; writeln; end; writeln('Сумма эл. ниже гл. диагонали ', sum); Readkey; end. |
Часовой пояс GMT +4, время: 01:33. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.