Дан массив А, в котором хранится стоимость N товаров. Весь товар подешевел ** р%....

Question

Дан массив А, в котором хранится стоимость N товаров. Весь товар подешевел на р%. Сформировать массив В, в котором хранится новая стоимость товаров. Вывести на экран в столбец номер товара, старая цена и новая цена. Количество товара и цену товара ввести с клавиатуры.
Выручайте скорее!!

Answer 1

Program pr_1
var n, p, res, i:integer;
a: array [1..n] of real;
begin
readln(n)
readln(p)
p := p / 100
for i:= 1 to n do
begin
res := n * p;
writeln(res);
end;
end.