Машина или тебе как нужно ну машина модель...
Программа:
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
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Writeln(ReadSeqInteger(4).Min)
end.
<u>Пример</u>
4 5 6 7
4
107/2(остаток 1)=53/2(остаток 1)=26/2(остаток 0)=13/2(остаток 1)=6/2(остаток 0)=3/2(остаток 1) 1=1101011
875*10 в степени -3 вот и все