#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>
Ж
домашний тел.
звонок в дверь.
3вук будильника
ж
домофон
микровооновка
компьютер
часы
var r:real;
begin
write ('Введите радиус круга: ');
read(r);
writeln ('Площадь круга равна: ', 3.14*sqr(r):0:3);
writeln ('Длина окружности равна: ', 2*3.14*r:0:3);
end.
Var a,b,c:real;
Begin
write('Введите a,b,c: ');readln(a,b,c);
if (a>=b)and(b>=c) then
Begin
a:=a*2;
b:=b*2;
c:=c*2;
End
else
Begin
a:=abs(a);
b:=abs(b);
c:=abs(c);
End;
writeln('a = ',a:2:2,' b = ',b:2:2,' c = ',c:2:2);
readln;
End.
var a,s,i:integer;
begin
randomize;
s:=0;
for i:=1 to 15 do
begin
a:=random(100);
s:=s+a;
end;
write('s=',s);
end.
