Добавь модуль Math, создай на форме Label и после implementation <span>{$R *.dfm} вставь
procedure TForm1.FormCreate(Sender: TObject);
const n=10;
var a:array[1..n] of integer;
i,mi,ma,s:integer;
begin
randomize;
s:=0;
ma:=1;
mi:=1;
for i:=1 to n do begin
a[i]:=random(20)-10;
if a[i]>a[ma] then ma:=i
else if a[i]<a[mi] then mi:=i;
label1.caption:=label1.caption + inttostr(a[i]) + ' ';
end;
for i:=min(ma,mi) to max(ma,mi) do s:=s+a[i];
label1.caption:=label1.caption + #13 + inttostr(s);
<span>end;</span></span>
Апельсиновое яйцо. состав: скорлупа, дольки, желток.
действия: разбить скорлупу, достать дольки и полить их желтком
F8 формула: =B12*5.
B5 формула: =А4+D6.
C7 формула: =D6/$A$2.
F9 формула: =$C$5-G1.
E5 формула: =C$5-$E9.
В шестеричной. Поскольку в шестеричной полученную 6 заменяем на 10. Выходит:
50+10=100.
Эквивалент в десятичной:
30+6=36.