Программа:
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
Монитор потому что он управляется мышкой
Вес разрядов справа от точки равен основанию системы в степени -1, -2, -3 ... итд (то есть 2^(-n), где n- номер разряда считая от первого справа от запятой).
Напишу веса разрядов начиная от первого справа от запятой, и далее, по порядку:
Двоичная система: 2^(-1)=1/2, 2^(-2)=1/4, 2^(-3)=1/8, 2^(-4)=1/16 ... итд
Восьмеричная: 8^(-1)=1/8, 8^(-2)=1/64, 8^(-3)=1/512 ... итд
Шестнадцатеричная: 16^(-1)=1/16, 16^(-2)=1/256, 16^(-3)=1/4096 ... итд
Вес разрядов слева от точки равен основанию системы в степени 0, 1, 2, 3 ... итд (то есть 2^(n-1), где n- номер разряда считая от первого слева от запятой).
Напишу веса разрядов начиная от первого слева от запятой, и далее, по порядку:
Двоичная система: 2^0=1, 2^1=2, 2^2=4, 2^3=8 ... итд
Восьмеричная: 8^0=1, 8^1=8, 8^2=64 ... итд
Шестнадцатеричная: 16^0=1, 16^1=16, 16^2=256 ... итд