<span>{$R+,S+,Q+}</span> uses SysUtils; <span>const R=1000;</span><span>type Mas= array [0..R] of integer;</span>var a: Mas; en,n: integer; x,y,z,q,w: char;<span>function push(n: integer): string;</span>begin<span> a[en]:=n;</span><span> en:=en+1;</span> push:='ok';end;<span>function pop(): integer;</span>begin<span> en:=en-1;</span><span> pop:=a[en];</span><span> a[en]:=0;</span>end;<span>function back(): integer;</span>begin<span> back:=a[en-1];</span>end;<span>function size(): integer;</span>begin size:=en;end;<span>function clear(): string;</span>begin<span> en:=0;</span> clear:='ok';end;<span>function exit(): string;</span>begin exit:='bye';end;begin<span> en:=0;</span> repeat<span> read(x);</span> if x='p' then begin<span> read(y);</span> if y='u' then begin<span> read(z,q,w);</span><span> readln(n);</span><span> writeln(push(n))</span> end else begin<span> readln(z);</span><span> writeln(pop());</span> end; end; if x='b' then begin<span> readln(y,z,q);</span><span> writeln(back());</span> end; if x='s' then begin<span> readln(y,z,q);</span><span> writeln(size());</span> end; if x='c' then begin<span> readln(y,z,q,w);</span><span> writeln(clear());</span> end; if x='e' then begin<span> readln(y,z,q);</span><span> writeln(exit());</span> end; until x='e';<span>end.</span>
<em>// PascalABC.NET 3.3, сборка 1599 от 17.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure Astento;
begin
var T:=Arr(-2,3,-1,4,-5,2,1,0,1,2,1,-3,5);
var s:=T.OrderBy(p->Abs(p)); // последовательность памяти не занимает
Writeln('Сумма двух наименьших по модулю: ',s.Take(2).Sum);
Writeln('Сумма двух наибольших по модулю: ',s.TakeLast(2).Sum)
end;
begin
Astento
end.
<u>Результат</u>
Сумма двух наименьших по модулю: -1
Сумма двух наибольших по модулю: 0
<u>Замечание:</u> в данном случае "ранжированная" последовательность была такой: 0 -1 1 1 1 -2 2 2 3 -3 4 -5 5
Вроде бы это,но ты проверь,писал на скорую руку.
#include <iostream>
using namespace std;
int main ()
{
double a, day, S;
a = 10;
S = 0;
day = 1;
for (int j = 0; S < 100; j++)
{
if (day == 1)
{
S = a;
day++;
}
else
{
a = a * 1.1;
S += a;
day++;
}
}
cout << (day-1) << endl;
return 0;
}
Сумму натуральных чисел от 10 до 15 умножить на 19, уменьшить в 5 раз и прибавить две третьих
<span />
1. Клавиатура.
2. Мышь.
3. Сенсорная клавиатура.