Задание 3. Массив содержит значения стоимости 20 товаров в магазине (случайные числа от 10 до 30). Составьте программу, которая определяет стоимость этих товаров после 15%-й скидки и выводит на экран исходный и преобразованный массивы.

После скидки остаётся 85% исходной стоимости, поэтому каждую цену умножаем на 0,85. Используем вещественные элементы массива.

var price, discounted: array[1..20] of real;
begin
  writeln('Исходные цены:');
  for var i := 1 to 20 do
  begin
    price[i] := Random(10, 31);
    write(price[i]:0:2, ' ');
  end;
  writeln;

  writeln('Цены после скидки 15%:');
  for var i := 1 to 20 do
  begin
    discounted[i] := price[i] * 0.85;
    write(discounted[i]:0:2, ' ');
  end;
end.