Напишите программу на языке Паскаль, которая принимает массив, содержащий значения стоимости 20 товаров в магазине

Lyudmila

31

Конечно, я могу помочь вам с этой задачей. Вот программный код на языке Паскаль, который выполняет требуемое действие:

pascal

program CalculateDiscount;

const

  SIZE = 20;



var

  items: array[1..SIZE] of Integer;

  discountedItems: array[1..SIZE] of Integer;

  i: Integer;



begin

  Randomize; // Инициализация генератора случайных чисел



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

  for i := 1 to SIZE do

    items[i] := Random(21) + 10;



  // Вывод исходного массива

  Write("Исходный массив: ");

  for i := 1 to SIZE do

    Write(items[i], " ");

  Writeln;



  // Применение скидки и заполнение преобразованного массива

  for i := 1 to SIZE do

    discountedItems[i] := Round(items[i] * 0.85); // Округление до ближайшего целого



  // Вывод преобразованного массива

  Write("Массив со скидкой: ");

  for i := 1 to SIZE do

    Write(discountedItems[i], " ");

  Writeln;

end.

Эта программа создает два массива: исходный массив товаров (`items`) и преобразованный массив с применением скидки (`discountedItems`). Сначала мы заполняем исходный массив случайными значениями от 10 до 30. Затем мы выводим содержимое исходного массива на экран, после чего применяем скидку в размере 15% к каждому элементу и заполняем преобразованный массив. Наконец, мы выводим преобразованный массив на экран.

Надеюсь, что данное пошаговое решение было понятно и полезно для вас. Если у вас возникнут дополнительные вопросы, пожалуйста, не стесняйтесь задавать их.