Program depos; const A = 10000; P = 11; N = 6; function GetDp(a, p, n: integer): real; begin GetDp := a * exp(ln(1 + p / 100) * n); end; begin writeln(GetDp(A, P, N):1:2); end.
1.var a:array[1..100] of integer; n,s,i:integer; begin write('Количество элементов='); readln(n); for i:=1 to n do begin readln(a[i]); end; for i:=1 to n do begin if a[i]>0 then a[i]:=-a[i] else a[i]:=abs(a[i]); end; for i:=1 to n do begin write(a[i]:3); end; end.