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

Тема: Написание программы на языке Pascal для определения стоимости товаров в магазине и применения скидки в 15%

Пояснение: Для решения данной задачи на языке Pascal, мы будем использовать массивы и случайные числа. Перед началом работы программы, мы объявляем массив, который будет содержать стоимость 20 товаров. Затем, мы заполняем этот массив случайными числами в заданном диапазоне от 10 до 30. Далее, мы выводим на экран исходный массив, чтобы показать стоимость каждого товара.

После этого, мы проходимся по массиву и применяем скидку в 15% к каждому элементу. Для этого, мы умножаем значение каждого элемента массива на 0.85, чтобы уменьшить его на 15%. Новое значение каждого элемента сохраняется в том же массиве.

В конце программы, мы выводим на экран измененный массив после применения скидки. Теперь, каждое значение стало равным 85% от исходной стоимости товара.

Пример использования: Предположим, что у нас есть исходный массив товаров со стоимостью от 10 до 30:

var

  массивТоваров: array[1..20] of Integer;

  i: Integer;

begin

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



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

  for i := 1 to 20 do

  begin

    массивТоваров[i] := Random(21) + 10;

  end;



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

  writeln('Исходный массив товаров:');

  for i := 1 to 20 do

  begin

    writeln(массивТоваров[i]);

  end;



  // Применение скидки в 15%

  for i := 1 to 20 do

  begin

    массивТоваров[i] := Round(массивТоваров[i] * 0.85);

  end;



  // Вывод на экран измененного массива после применения скидки

  writeln('Массив товаров после применения скидки:');

  for i := 1 to 20 do

  begin

    writeln(массивТоваров[i]);

  end;



  readln;

end.

Совет: Перед началом написания программы, убедитесь, что вы понимаете основные концепции массивов, оператора цикла и функций на языке Pascal. Рекомендуется изучить примеры других программ, использующих массивы и случайные числа, чтобы лучше понять, как они работают.

Упражнение: Напишите программу на языке Pascal, которая позволяет определить стоимость 30 товаров в магазине, используя случайные числа от 5 до 50. Программа должна выводить на экран исходный массив и массив после применения скидки в 20%.