const m = 100;
<span>var i,n,s,mx: integer;
</span><span> a: array[1..m] of integer;
</span><span>begin
</span><span> write('размер массива: '); readln(n);
</span><span> randomize;
</span><span> s:=0; mx:= -12;
</span><span> writeln('исходный массив: ');
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(-11,34);
</span><span> write(a[i],' ');
</span><span> if (a[i]<0) and (a[i]>mx) then mx:=a[i];
</span><span> if ((a[i]>0) and (a[i] mod 2 = 1)) then s:=s+a[i];
</span><span> end;
</span><span> writeln;
</span><span> writeln('максимальный среди отрицательных: ',mx);
</span><span> writeln('сумма нечетных положительных: ',s);
</span><span>end.
</span>размер массива: 15
<span>исходный массив:
</span><span>17 -10 17 0 5 2 26 9 27 8 21 19 18 5 21
</span><span>максимальный среди отрицательных: -10
</span><span>сумма нечетных положительных: 141
</span><span>
</span>
<span>k:=pos(' ',s); - позиция пробела
</span><span>t:=Copy(s,k+1,3); - копирование с 6 символа + 3(как-то так)
</span>Ответ: зим<span />
Сместиться (2,0)
сместиться (0,2)
сместиться (-2,0)
сместиться (0, -2)