Если я не ошибаюсь "end" здесь вообще не нужно)
Исходный программный код находится в приложении ниже.
Предполагается, что 1≤n≤92.
Писал на PascalABC.Net v.3.2, сборка 1325 (19.10.2016).
Const
N = 3;
Var
A:Array[1..N,1..N] of integer;
i,j:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
WriteLn('↓↓↓↓↓↓↓↓↓↓↓↓↓');
For i:= 1 to N do
A[i,i]:=5;
For i:= 1 to N do
Begin
For j:= 1 to N do
Write(A[i,j]:3,' ');
WriteLn
End;
End.
172(8) = <span>122(10)
2ЕА(16) = </span>746<span>(10)
101010(2) = 42</span><span>(10)
10.1(2) = 2.5</span><span>(10)
243(6)</span> = 99<span>(10)
</span>51(10), 21(10), 29(10), 27(10) соответственно =>
а) <span>110011(2)
б) </span><span>111(4)</span>
Цикл, в котором условие записано после тела цикла, выполнится как минимум 1 раз, а потом начнет проверять условие цикла. Цикл с предусловием может не выполниться ни разу, тк условие проверяется сразу. Цикл с предусловием используется когда у нас есть четкие границы выполнения