60Мб *1024*1024 = 62914560 байт
256Кбит = 32000 байт
31457280/32000 + 31457280/16000 = 983,04 + 1966,08 = 2949,12 сек ≈ 49 мин 9 сек
1.
<span><span><span><span>
10.00
</span></span><span><span>
-3.55
</span></span><span><span>
0.40
</span></span><span><span>
55.00
</span></span><span><span>
</span></span></span></span>
2.
<span><span><span><span>
1.538E-02
</span></span><span><span>
1.255E+02
</span></span><span><span>
4.582E+02
</span></span><span><span>
2.500E+02
</span></span></span></span>
3.
В Паскале
P real
<span>В VBA
</span>Dim P As Variant
<span> </span>
<em /><em>VAR</em>
<span><em> mx, ind: Integer;</em></span>
<span><em> n, m, i, j: Integer;</em></span>
<em>
b: Array of Integer;</em>
<em>
a: Array of Array of Integer;</em>
<em>BEGIN</em>
<em>
Read(n); SetLength(a, n+1); </em>
<em> For i := 1 to n do SetLength(a[i], n+1);</em>
<em></em>
<em>
For i := 1 to n do</em>
<em> For j := 1 to n do Read(a[i][j]);</em>
<em></em>
<em> SetLength(b, n+1);</em>
<em> For i := 1 to n do b[i] := a[i][i];</em>
<em></em>
<em> mx := b[1]; ind := 1;</em>
<em> For i := 2 to n do </em>
<em> If (mx < b[i]) then begin </em>
<em> mx := b[i]; ind := i; End;</em>
<em></em>
<em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em>
<em>END.</em>
<em></em>
Или намного проще (если нужен только ответ):
<em>VAR</em>
<em> mx, ind, el: Integer;</em>
<em> n, m, i, j: Integer;</em>
<em>BEGIN</em>
<em> Read(n);</em>
<em></em>
<em> // Присваем макс. элементу самое минимальное число,</em>
<em> // которое точно не встретится в массиве</em>
<em> mx := -999999999;</em>
<em></em>
<em> For i := 1 to n do</em>
<span><em> For j := 1 to n do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (i <> j) then Continue;</em></span>
<span><em> If (mx < el) then begin </em></span>
<span><em> mx := el; ind := i; End; End;</em></span>
<em></em>
<span><em> Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx);</em></span>
<em>END.</em>