Вквадратной таблице, не содержащей отрицательных элементов, найдите корень квадратный из произведения диагональных элементов.

230

282

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

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

lenyaalikin

Информатика

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

program n1; uses crt; const n=5; var a: array[1..n,1..n] of integer; i,j: integer; k,p: real; beginclrscr; randomize; p: =1; for i: =1 to n do begin for j: =1 to n do begin a[i,j]: = random(10); write(a[i,j]: 2); if (i=j)or(n-i+1=j) then p: =p*a[i,j]; end; writeln; end; k: =sqrt(p); writeln(k: 4: 4); readlnend.