Проверить, что две клетки стоят в одной строке или в одно строке, просто: надо проверить, что равны соответствующие иксы или игреки. Немного сложнее проверить, что две клетки стоят на одной диагонали. Так будет, если |x1 - x2| = |y1 - y2|.
Код:
# python 3
N = 13;
Var
A:array[1..N] of real;
i:integer;
S:real;
Begin
S:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random*N-N/2;
Write(A[i]:0:3,' ');
if A[i]<0 then S:=S+A[i]*A[i]
End;
WriteLn;
WriteLn;
WriteLn('S = ',S)
End.