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

Хорошо, давайте решим эту задачу пошагово.

Шаг 1: Объявление массива и его заполнение случайными значениями
В языке Pascal мы можем объявить массив и заполнить его случайными значениями с использованием функции random. Для этой задачи мы создадим массив, содержащий 20 элементов, где каждый элемент будет представлять стоимость товара в магазине.

pascal

program discount;

var

  prices: array[1..20] of Integer;

  i: Integer;

begin

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

  

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

  for i := 1 to 20 do

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

end.

Шаг 2: Применение скидки и создание массива со скидкой
Теперь, когда у нас есть исходный массив с значениями стоимости товаров, давайте создадим новый массив, в котором будут содержаться значения стоимости товаров после применения 15%-й скидки.

pascal

program discount;

var

  prices: array[1..20] of Integer;

  discountedPrices: array[1..20] of Real;

  i: Integer;

begin

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

  

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

  for i := 1 to 20 do

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

  

  // Применяем скидку 15% к каждому элементу массива

  for i := 1 to 20 do

    discountedPrices[i] := prices[i] * 0.85;

end.

Шаг 3: Вывод исходного и преобразованного массивов на экран
Теперь, когда у нас есть исходный массив и массив со скидкой, давайте выведем их значения на экран.

pascal

program discount;

var

  prices: array[1..20] of Integer;

  discountedPrices: array[1..20] of Real;

  i: Integer;

begin

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

  

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

  for i := 1 to 20 do

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

  

  // Применяем скидку 15% к каждому элементу массива

  for i := 1 to 20 do

    discountedPrices[i] := prices[i] * 0.85;

  

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

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

  for i := 1 to 20 do

    WriteLn("Товар ", i, ": ", prices[i]);

  

  // Выводим массив со скидкой

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

  for i := 1 to 20 do

    WriteLn("Товар ", i, ": ", discountedPrices[i]:0:2);

end.

Теперь, если запустить эту программу, она будет выводить исходный массив и массив со скидкой на экран. Вывод будет выглядеть следующим образом:

Исходный массив:

Товар 1: 23

Товар 2: 29

Товар 3: 18

...

Массив со скидкой:

Товар 1: 19.55

Товар 2: 24.65

Товар 3: 15.30

...

Таким образом, мы решили задачу, написав программу на языке Pascal, которая работает с массивом, содержащим значения стоимости 20 товаров в магазине, применяет 15%-ю скидку и выводит на экран исходный и преобразованный массивы.