111111+2>1111+8 6+16<101001-2 55-16<125-8
Программа:
const n=10;
var a:array[1..n] of integer;
k,p,i:integer;
begin
Randomize;
for i:=1 to n do begin
a[i]:=random(21)-5;
write(a[i]:3);
end;
writeln;
k:=0;
while (k<=n)and(a[k]>=0) do k:=k+1;
if k=n+1 then writeln('В массиве нет отрицательных элементов')
else
begin
p:=1;
for i:=k to n do
if a[i]<0 then p:=p*a[i];
writeln('a[',k,']=',a[k],' p = ',p);
end;
end.
Пример:
3 11 9 11 -1 11 -2 3 3 -5
a[5]=-1 p = -10
Вроде так ...............
А++-++а ≠ 0 однозначно!
Выражение содержит два инкремента - сначала постфиксный, затем, после знака минус - префиксный. Постфиксный инкремент выполняется ПОСЛЕ выполнения операции, а префиксный - ДО. Поэтому сначала выполнится префиксный ++, который увеличит операнд "а", затем из прежнего значения a, стоящего слева от знака минус, вычтется "новое" значение "а", и затем уже постфиксный инкремент нарастит полученное значение.
Если в Паскале то вот должно работать !
BAR i,s:integer;
BEGIN
s:=0;
for i:=1 to 100 do
if i mod 2 = 0 then s:=s+i;
writeln(s);
<span>END.</span>