#include <iostream>
void task1()
{
std::cout << "TASK_1\n";
for (int i = 1001; i <= 1025; i += 3)
std::cout << i << " ";
std::cout << "\n\n";
}
void task2()
{
std::cout << "task_2\n";
unsigned n;
std::cout << "n: ";
std::cin >> n;
for (int i = 0; i < n; ++i)
std::cout << "Silence is golden\n";
std::cout << "\n";
}
void task3()
{
std::cout << "task_3\n";
int sum = 0;
for (int i = 10; i <= 88; ++i)
sum += i;
std::cout << sum << "\n\n";
}
void task4()
{
std::cout << "task_4\n";
for (int i = 100; i >= 1; i -= 4)
std::cout << i << " ";
std::cout << "3 2 1\n\n";
}
int main()
{
task1();
task2();
task3();
task4();
}
// Внимание! Если программа не работает, обновите версию!
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.
Результат
Сумма двух наименьших по модулю: -1
Сумма двух наибольших по модулю: 0
Замечание: в данном случае "ранжированная" последовательность была такой: 0 -1 1 1 1 -2 2 2 3 -3 4 -5 5