Const n=20;
var a:array[1..n] of integer;
i,j,k,c:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(51)-25;
write(a[i]:4);
end;
writeln;
k:=0;
for i:=1 to n do
if a[i]<0 then
begin
k:=k+1;
c:=a[i];
for j:=i-1 downto k do a[j+1]:=a[j];
a[k]:=c;
end;
for i:=1 to n do write(a[i]:4);
writeln;
end.

Пример:
5 25 24 -20 13 18 -2 21 -24 14 -2 -25 -18 13 23 11 22 -22 -21 -22
-20 -2 -24 -2 -25 -18 -22 -21 -22 5 25 24 13 18 21 14 13 23 11 22

0 0

3 года назад

Прочитать ещё 2 ответа

Было 53q груши. После того, как каждую из них разрезали пополам, стало 136 половинок. В системе счисления с каким основанием ве

ALVINA [45]

Отпадают все системы до 6 включительно. Предположим, что это система с основанием 7.

53*2=136

136=136

Следовательно исчисления велись в системе с основанием 7

0 0

4 года назад

КАК НАЗЫВАЕТСЯ ШТАНГИ, БРУСЬЯ, КОЛЬЦА, КАНАТ, КОНЬ ДАЙ НАЗВАНИЯ ЭТОМУ МНОЖЕСТВУ

happi222

Спортивный инвентарь, советские тренажеры - выбери, как больше нравится

0 0

4 года назад

Разработайте программу в паскаль вычисления сложного выражения: z=(x^2+y^2)/(2-sqrt(x+y)). Программа должна предлагать пользоват

weed

Var x, y, z: double;
begin
writeln('Input x');
readln(x);
writeln('Input y');
readln(y);
if (x + y >= 0) and (x + y <> 4) then {необходимо для корректности}
begin
z := (x * x + y * y) / (2 - sqrt(x + y));
writeln(z);
end
else
writeln('Incorrect input');
end.

0 0

4 года назад