<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
x.Println; var a:=x.Where(p->p>0).Sum;
var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
y.Println; var b:=y.Where(p->p>0).Sum;
var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
t.Println; var c:=t.Where(p->p>0).Sum;
Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.
<u>Пример</u>
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
Я не экономист и не экстрасенс, так что если именно сама формула подсчета дохода неверна - меняйте сами, я ее просто нашла в интернете.
var
vklad, dohod, summa, stavka: real;
srok: integer;
begin
write('Величина вклада (р.) - ');
readln(vklad);
write('Срок вклада (дней) - ');
readln(srok);
write('Годовая процентная ставка (%) - ');
readln(stavka);
dohod := (vklad*stavka)/(100*365) * srok;
summa := vklad + dohod;
writeln('Доход: ', Trunc(dohod), ' р.', frac(dohod)*100:3:0, ' коп.');
writeln('Сумма по окончании срока вклада: ', Trunc(summa), ' р.', Frac(summa)*100:3:0, ' коп.');
<span>end.</span>
315(7)=5*7^0+1*7+3*7^2=5+7+49*3=12+147=159(10)
266(7)=6*7^0+6*7+2*7^2=6+42+2*49=48+98=146(10)
разность между ними 159(10)-146(10)=13(10)
Ответ:13
Var ar:array of integer;
i,n:integer;
procedure FirstPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if ar[i]<=25 then inc(k);
writeln(k);
end;
procedure SecPr(ar:array of integer;n:integer);
var i,k:integer;
begin;
for i:=1 to n do
if (ar[i]>=40) and (ar[i]<=50) then inc(k);
writeln(k);
end;
begin;
randomize;
readln(n);
setlength(ar,n+1);
writeln('Array');
for i:=1 to n do
begin;
ar[i]:=random(0,50);
write(ar[i]:4);
end;
writeln;
FirstPr(ar,n);
SecPr(ar,n);
<span>end.</span>