Меню сайта

Задача №40
Дан квадратный массив из —nэлементов. Найти сумму элементов ниже главной диагонали.
Program -dmas_16-
uses crt-
const m=4-
Var a:array[1..m,1..m] -of integer-
min,i,j,s:integer-
Begin
randomize-
For i:=1 to m do
begin
For j:=1 to m do
begin
a[i,j]:=random(10)- —
write(a[I,j]:4)-
end-
writeln-
end-
s:=0-
For i:=2 to m do
For j:=1 to i-1 do
-s:=s+a[i,j]-
Writeln(‘Сумма элементов ниже главной диагонали = ‘,s)-
Readln-
End.
Категория: Массивы | Дата: 14.12.12

Меню раздела
Блок