Поделитесь своими знаниями, ответьте на вопрос:
У магазині одягу існує гнучка система зміни ціни. Кожного тижня товар змінював свою ціну за таблицею: 1 тиждень на 10% Підвищення 2 тиждень на 5% Підвищення 3 тиждень на 7% Зниження 4 тиждень на 10% Зниження У вибраному середовищі програмування створіть проект Знижки, у якому за введеною вартістю товару можна обчислити: 1) значення ціни товару протягом кожного тижня та вивести їх на екран у вигляді таблиці (списку) значень; Примітка. Щоб знайти результат збільшення ціни а на 1 %, виконують дію: а * 1, 01, щоб зменшити на 1 %, виконують дію: а * 0, 99; 2) відсоток зміни ціни протягом місяця, як добуток відсоткових змін кожного тижня.
i, n: integer; // объявление целочисленных переменных
begin
// Запросим с клавиатуры размер массива
// и запишем его в переменную n
write('введите n:');
readln(n);
// Теперь выделим память под n элементов массива
SetLength(a, n);
// теперь запросим с клавиатуры n чисел для массива
for i := 0 to n-1 do begin
write('a[', i, ']=');
readln(a[i]);
end;
// теперь в цикле уменьшим каждый элемент на единицу
for i := 0 to n-1 do
a[i] := a[i] - 1;
// распечатаем массив
for i := 0 to n-1 do
write(a[i], ' ');
end.