Объяснение:Временные значения денег
В зависимости от точки зрения, номинальное значение денег может быть различным. Ключевое понятие здесь — временное значение денег. Вычисления, производимые над денежными суммами, могут производиться в настоящем или в будущем. Выбор типа вычислений основывается на
том, что сумма денег увеличивается, поскольку постоянно поступают начисления по процентам. Другими словами, вложив
один рубль сегодня, завтра вы получите больше.
Например, предположим, что богатенький заокеанский
дядюшка решил подарить вам деньги, причем нужно выбрать
один из вариантов.
Получить 80 000 руб. сегодня.
Получить 95 000 руб. через год.
Получить 120 000 руб. через пять лет.
Получать 1 500 руб. каждый месяц на протя
//первая программа
var
a:array[1..10] of integer;
Sr, i:integer;
begin
Sr := 0;
for i := 1 to 10 do
begin
write('a[', i, '] = ');
readln(a[i]);
if i mod 2 = 0 then
Sr := Sr + a[i];
end;
writeln('Среднее арифметическое элементов стоящих на четных местах: ', Sr /(10 div 2));
end.
//вторая программа
var
a:array[1..3, 1..3] of integer;
Pr, count, summ, i, j:integer;
begin
pr := 1;
summ := 0;
count := 0;
for i := 1 to 3 do
for j := 1 to 3 do
begin
write('a[', i, ', ', j, '] = ');
readln(a[i, j]);
if i mod 2 = 1 then
pr := pr * a[i, j];
if a[i, j] < 0 then
begin
summ := summ + a[i, j];
count := count + 1;
end;
end;
writeln('Произведение элементов стоящих в четных строках: ', pr);
if count <> 0 then
writeln('Среднее арифметическое отрицательных элементов: ', summ / count)
else
writeln('Нет ни одного элемента отрицательного элемента');
end.
//третья программа
var
s:string;
c:char;
i:integer;
begin
s := 'Мадагаскар';
writeln('Исходная строка: ');
writeln(s);
for i := 1 to Length(s) div 2 do
begin
c := s[i];
s[i] := s[Length(s) - i + 1];
s[Length(s) - i + 1] := c;
end;
writeln('Перевернутая строка:');
writeln(s);
end.
