Составить программу вычисления стоимости покупки, если известна стоимость 1 кг конфет, печенья и яблок и количество купленных конфет, печенья и яблок. Ниже представлен рекомендуемый вид экрана во время работы программы: Введите исходные данные: Цена 1 кг конфет (руб.): 105 Количество кг конфет: 0.3 Цена 1 кг печенья (руб.): 73.5 Количество кг печенья: 1.2 Цена 1 кг яблок (руб.): 54.5 Количество кг яблок: 1.8 Стоимость покупки: 217.8 руб.

Это так же называется обратной польской записью. Числа, которые встречаются интерпретатору, помещаются в стек. А операции совершаются над числами лежащими в вершине стека. Последовательность будет такая: а - помещается на вершину стека, b - помещается на вершину, а проталкивается вглубь стека. И т.д. После ввода цифры 7 стек будет иметь вид "abc7", где 7 лежит на вершине стека. Затем приходит черед арифметических операций: "+" - берутся два числа, лежащие в вершине стека, складываются, и вместо них на вершину стека ложится их сумма. Теперь стек будет таким: "ab(c+7)". Следующая операция "*" - берутся b и (с+7) и умножаются. Результат помещается на вершину стека. Стек: "а(b*(c+7))". И последнее действие "-" - из a вычитается b*(c+7). В результате выражение будет иметь вид:
а - b(c+7).

Const
  n=15;
var
  a:array[1..n] of integer;
  i,j,k,t:integer;
begin
  Randomize;
  Writeln('Исходный массив');
  k:=1;
  for i:=1 to n do
    begin
    a[i]:=Random(99)+1;
    Write(a[i],' ');
    if a[i]>a[k] then k:=i
    end;
  Writeln;
  for i:=1 to k-2 do
    for j:=1 to k-2 do
      if a[j] > a[j+1] then
        begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  for i:=k+1 to n-1 do
    for j:=k+1 to n-1 do
      if a[j] < a[j+1] then
        begin t := a[j]; a[j] := a[j+1]; a[j+1] := t end;
  Writeln('Упорядоченный массив');
  for i:=1 to n do Write(a[i],' ');
end.