Pascal. Дан целочисленный массив В[1 ... 5, 1 ... 5]. Вычислить сумму элементов этого массива, расположенных выше главной диагонали.

Question

Информатика

Епистимия

23 апреля, 19:37

Pascal. Дан целочисленный массив В[1 ... 5, 1 ... 5]. Вычислить сумму элементов этого массива, расположенных выше главной диагонали.

+4

Ответы (1)

Знаете ответ?

Анастасия · Answer 1

Const n=5;

Var B:array[1 ... n, 1 ... n] of integer;

i, j:byte;

pr:real;

Begin

For i:=1 to n do

Begin

For j:=1 to n do

Begin

B[i, j]:=random (10) ;

write (B[i, j]:3) ;

End;

writeln;

End;

pr:=1;

For i:=1 to n do

For j:=1 to n do

if i
pr:=pr*B[i, j]; writeln ('Произведение элементов = ', pr) ; readln;

End.