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

Вопрос от пользователя: Каздоя

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

Выручайте скорее!

Ответ: Киряха

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.