Дана матрица в(5,5). вычислить произведение элементов, стоящих выше главной диагонали. напечатать матрицу в и значение произведения. написать код программы в паскале.

238

360

Посмотреть ответы 2

Ответы на вопрос:

Мила5411

Информатика

4,6(47 оценок)

Var i,j,pr: integer; a: array[1..5,1..5] of integer; begin randomize; pr: =1; write('исходный массив: '); for i: =1 to 5 do begin writeln; for j: =1 to 5 do begin a[i,j]: =random(4)+1; write(a[i,j]: 2); if i< j then pr: =pr*a[i,j] end end; writeln; writeln('произведение ',pr) end.