#include <iostream>
int main(){<span>
unsigned int m = 0;
</span><span> std::cin >> m;
</span><span>
int * c = new int[m];
</span><span> int * t = new int[m];
</span><span> for (unsigned int i = 0,n = 0; i < m; ++i) {
</span><span> std::cin >> c[i];
</span><span> (c[i] > 0) ? t[n++] = c[i]: t[m-(i-n)-1] = c[i];
</span><span> }</span>
<span>
for (unsigned int i = 0; i < m; ++i)</span><span> std::cout << c[i] << ',';</span><span /><span>
std::cout << std::endl;</span><span>
for (unsigned int i = 0; i < m; ++i) </span><span>std::cout << t[i] << ',';</span><span />
<span> delete c;
</span><span> delete t;
</span><span> return 0;
</span><span>}</span>
2 chisla
var a,b:integer;
begin
read (a , b);
if (a>b) then
write (a)
else
write (b);
end.
3 chisla
var a,b,c:integer;
begin
read (a , b , c);
if (a>b>c) then
write (a)
else if (b>a>c) then
write (b)
else if (c>a>b) then
write (c)
end.
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (x,y,z):=ReadReal3;
var a:=(3+Exp(y-1))/(1+x*x*Abs(Tan(z)));
var b:=1+Abs(y-x)+Abs(y-z)**3/3;
Println(a,b)
end.
<h2>Пример</h2><h3>12.4 -0.183 5</h3><h3>0.00634876065501366 59.9941544956667 </h3>
Подпр1(A,B,B) - аргумент X функции - это А = 3, аргумент Y функции - B=5, результат - аргумент F, то есть возврат значения B
X = X + 2 = 3 + 2 = 5
Y = Y + 3 = 5 + 3 = 8
F = X + Y = 13
B = 13
Ответ: 13