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

Задача: Напишите программу на языке Pascal, которая изменяет массив со значениями стоимости 20 товаров в магазине (случайные числа от 10 до 30) путем применения 15%-й скидки. Затем выведите на экран как исходный, так и измененный массивы.

Инструкция: Чтобы решить данную задачу, необходимо создать массив, заполненный случайными числами от 10 до 30, представляющими стоимость каждого товара. Затем применить 15%-й скидку к каждому элементу массива и вывести исходный и измененный массивы на экран.

Ниже приведен код программы на языке Pascal, решающий данную задачу:

Pascal
program Изменение_массива;
uses crt;

const
  размер_массива = 20;
  минимальная_стоимость = 10;
  максимальная_стоимость = 30;
  скидка = 0.15;

var
  массив_стоимостей: array[1..размер_массива] of integer;
  i: integer;
  
begin
  randomize;
  
  // Заполнение массива случайными значениями
  for i := 1 to размер_массива do
    массив_стоимостей[i] := random(максимальная_стоимость - минимальная_стоимость + 1) + минимальная_стоимость;
  
  // Вывод исходного массива
  writeln('Исходный массив:');
  for i := 1 to размер_массива do
    write(массив_стоимостей[i], ' ');
  writeln;
  
  // Применение скидки к каждому элементу массива
  for i := 1 to размер_массива do
    массив_стоимостей[i] := round(массив_стоимостей[i] * (1 - скидка));
  
  // Вывод измененного массива
  writeln('Измененный массив:');
  for i := 1 to размер_массива do
    write(массив_стоимостей[i], ' ');
  writeln;
  
  readln;
end.

Пример использования:

Исходный массив:
15 28 23 21 10 29 25 18 20 29 27 20 30 11 24 19 13 16 12 16
Измененный массив:
12 24 19 17 8 24 21 15 17 24 23 17 25 9 20 16 11 14 10 14

Совет: Если вы не знакомы с языком Pascal, рекомендуется изучить основные концепции и синтаксис этого языка программирования. Ознакомление с массивами и операциями над ними также будет полезным для понимания данной задачи.

Упражнение: Напишите программу на языке Pascal, которая применяет 10%-ю налоговую ставку к массиву с заработками 30 человек. Затем выведите на экран исходный и измененный массивы.