Цитата:
Сообщение от Серёга_IV
Помогите решить задачу.
|
Вообще-то с подобными пустяками уровня подготовительной группы детсада для умственно-отсталых я посылаю куда подале, ведь на чем же еще учиться (если, конечно, есть таковое намерение), как не на подобной ерунде? Но ладно,
. Получите. Но это, правда, Free Pascal. Вроде без разницы.
Код:
Const
N=20;
Var
A:Array[1..N] of Integer;
i1,i2,i,D:Integer;
Begin
Randomize;
Writeln('Old array:');
For i:=1 to N do
begin
A[i]:=10-Random(20);
Write(A[i]:4);
end;
Writeln;
i1:=1;
If A[i1]<=0 then
Repeat
Inc(i1);
Until (A[i1]>0) or (i1=N);
i2:=N;
If A[i2]>=0 then
Repeat
Dec(i2);
Until (A[i2]<0) or (i2=1);
If (A[i1]>0) and (A[i2]<0) then
begin
D:=A[i1];
A[i1]:=A[i2];
A[i2]:=D;
writeln('New array:');
for i:=1 to N do Write(A[i]:4);
end
else
If A[i1]<=0 then
Writeln('No positives!')
else
If (A[i2]>=0) then
Writeln('No negatives!');
Readln
End.