Дан массив,элементами которого являютсяцены товаров... - вопрос №506773

Дан массив, элементами которого являютсяцены товаров на конец года.Определить новые цены, с учетом месячной инфляции, если известен процент инфляции.Определить среднюю новую цену

Лучший ответ по мнению автора

program pr;

uses crt;

const n=10; 

var a:array[1..n] of real;

i:integer;

s,t:real;

begin

clrscr;

writeln('vvedite starie zeny');

for i:=1 to n do

readln(a[i]);

writeln('vvedite procent inflyacii');

readln(t); 

writeln('starie zeny');

for i:=1 to n do

  write(a[i]:8:2);

writeln; 

 

s:=0;

for i:=1 to n do

begin

  a[i]:=a[i]*(1+t/100);

  s:=s+a[i];

end; 

s:=s/n; 

writeln('novie zeny');

for i:=1 to n do

  write(a[i]:8:2);

writeln; 

writeln('sredn=',s:8:2); 

readln

end. 

Буду благодарна, если отметите 

27.12.12
Лучший ответ по мнению автора

Еva

от 100 p.
Читать ответы

1 1

Бесплатно
Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store