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

Название: Решение задачи на языке Pascal - вычисление стоимости товаров с применением скидки

Пояснение: Для решения данной задачи на языке Pascal мы можем использовать массив для хранения цен товаров и цикл для применения скидки ко всем элементам массива. Ниже представлен код программы:

pascal

program CalculateDiscount;

var

  Prices: array[1..20] of real;

  i: integer;

begin

  writeln("Введите цены 20 товаров:");

  for i := 1 to 20 do

  begin

    write("Товар ", i, ": ");

    readln(Prices[i]);

  end;

  

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

  for i := 1 to 20 do

  begin

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

  end;

  

  writeln("Массив цен товаров со скидкой:");

  for i := 1 to 20 do

  begin

    Prices[i] := Prices[i] * 0.85; // применяем 15% скидку

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

  end;

  

  readln;

end.

Демонстрация:

Введите цены 20 товаров:

Товар 1: 10

Товар 2: 15

...

Товар 20: 25



Исходный массив цен товаров:

Товар 1: 10.00

Товар 2: 15.00

...

Товар 20: 25.00



Массив цен товаров со скидкой:

Товар 1: 8.50

Товар 2: 12.75

...

Товар 20: 21.25

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