Var a:array[1..10] of Integer ;
p,i:integer;
Begin
p:=1;
WriteLn('Массив');
For i:= 1 to 10 do
begin
a[i]:=Random(20)-10;
Write(a[i]:3);
if a[i]<0 then p:=p*a[i];
end;
WriteLn;
WriteLn('Произведение отопительных элементов = ',p)
end.
<span>Hand to hand combat это на английском
</span>
История 2 мировая война, биология-вымирание динозавров, география-земля имеет форму шара
200710= 0*10 в нулевой ст+ 1*10 в первой ст+7*10 во второй ст+0*10 в третьей ст+ 0*10 в четвертой ст+ 2*10 в пятой ст=200710
2348= 8* 10 в нул ст+4*10 в первой ст+ 3*10 во второй ст+2*10 в третьей ст=2348
101102=2*10 в нул ст+0*10 в первой ст+ 1*10 во второй ст+1*10 в третьей ст+ 0*10 в четверт ст+1*10 в пятой ст=101102
Var a:array[1..10] of longint;
n,i,b:integer;
f:boolean;
Begin
readln(n);
for i:=1 to n do read(a[i]);
writeln;
repeat
f:=true;
for i:=2 to n do
if a[i-1]>a[i] then Begin
b:=a[i-1];
a[i-1]:=a[i];
a[i]:=b;
f:=false;
end;
until f;
for i:=1 to n do write(a[i]:5);
end.