Объяснение:
const n=25;
var a:array[1..n] of integer;
i,j,b,otr:integer;
begin
randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(60)-20;
write(a[i]:4);
end;
for i:=1 to n do
begin
if a[i]<0 then
begin
otr:=a[i];
break;
end;
end;
writeln(#10,'Первое отрицательное = ',otr);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
b:=a[i];
a[i]:=a[j];
a[j]:=b;
end;
writeln('Результат сортировки:');
for i:=1 to n do
begin
write(a[i]:4);
end;
end.
Вот тебе в паскале
program ryad_chisel;
var N, t:integer;
begin
read(N);
t:=(N*(N+1))div 2;
if t mod 2 =1 then writeln('IMPOSSIBLE')
else begin
if N mod 2 =0 then begin
t:=N div 4;
repeat
write('+');
t:=t-1;
until t=0;
t:=N div 2;
repeat
write('-');
t:=t-1;
until t=0;
t:=N div 4;
repeat
write('+');
t:=t-1;
until t=0;
end
else begin
t:=((N+1) div 4)-1;
repeat
write('+');
t:=t-1;
until t=0;
t:=((N-1) div 2)+1;
repeat
write('-');
t:=t-1;
until t=0;
t:=(N+1) div 4;
repeat
write('+');
t:=t-1;
until t=0;
end
end
end.
