Измените задание 6. Массив содержит информацию о цене 20 товаров в магазине (псевдослучайные числа от 1

Solnechnaya_Zvezda_6626

24

pascal

program CalculatePurchaseCost;



const

  MAX_PRODUCTS = 20;

  PRICE_MIN = 1;

  PRICE_MAX = 50;



var

  prices: array[1..MAX_PRODUCTS] of integer;

  numOfProducts, i, productNumber: integer;

  totalCost: integer;



begin

  randomize;



  // Заполняем массив цен случайными числами

  for i := 1 to MAX_PRODUCTS do

  begin

    prices[i] := random(PRICE_MAX - PRICE_MIN + 1) + PRICE_MIN;

  end;



  // Ввод количества товаров

  write("Введите количество товаров, которые Вы хотите приобрести: ");

  readln(numOfProducts);



  // Проверка ввода

  if (numOfProducts < 1) or (numOfProducts > MAX_PRODUCTS) then

  begin

    writeln("Ошибка! Введите число от 1 до ", MAX_PRODUCTS, ".");

    exit;

  end;



  // Ввод номеров выбранных товаров и расчет общей стоимости

  totalCost := 0;

  writeln("Введите номера выбранных товаров:");

  for i := 1 to numOfProducts do

  begin

    write("Товар ", i, ": ");

    readln(productNumber);



    // Проверка ввода

    if (productNumber < 1) or (productNumber > MAX_PRODUCTS) then

    begin

      writeln("Ошибка! Введите число от 1 до ", MAX_PRODUCTS, ".");

      exit;

    end;



    // Подсчет общей стоимости

    totalCost := totalCost + prices[productNumber];

  end;



  // Вывод общей стоимости покупки

  writeln("Общая стоимость покупки: ", totalCost, " руб.");



end.