что то мне подсказывает что для разгона надо брать память с радиаторами и не перегревать а все остальное на нормальных плашках все будет ок
<em>// PascalABC.NET 3.3, сборка 1627 от 27.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var imin:=a.IndexMin; a:=(a?[:imin]+Arr(0)+a?[imin:]).ToArray;
var imax:=a.IndexMax; a:=(a?[:imax+1]+Arr(0)+a?[imax+1:]).ToArray;
a.Println
end.
<u>Пример</u>
n= 15
-32 11 7 8 -25 42 39 18 25 -33 -4 10 41 25 -36
-32 11 7 8 -25 42 0 39 18 25 -33 -4 10 41 25 0 -36
(1 и 0)=0, (0 или 1)=1 -ответ
Ответ: 24 ( прикрепила фотографию)
Const
N = 7;
Var
A:array[1..N,1..N] of integer;
i,j:integer;
Begin
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 div 2+(N mod 2) do
Begin
For j:= 1 to N do
Begin
if (j<=N div 2+i)and(N div 2-i+(N mod 2)<j) then A[i,j]:=99;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
For i:= (N div 2)+(N mod 2)+1 to N do
Begin
For j:= 1 to N do
Begin
if (i-N div 2-1<j)and(j<=N+N div 2+1-i) then A[i,j]:=99;
Write(A[i,j]:3,' ')
End;
WriteLn;
End;
End.