<em>// PascalABC.NET 3.2, сборка 1334 от 12.11.2016</em>
begin
var n:=ReadInteger('n=');
var a:=SeqRandom(n,-20,20).Select(e->real(e)).ToArray;
a.Println;
var b:=a.Where(x->x=0).Concat(a.Where(x->x<0)).ToArray;
a:=b.Concat(a.Where(x->x>0)).ToArray;
a.Println;
end.
Пример
n= 20
-16 1 16 -11 20 -6 -11 15 0 -9 -14 0 4 -4 2 14 19 7 -14 4
0 0 -16 -11 -6 -11 -9 -14 -4 -14 1 16 20 15 4 2 14 19 7 4
Var a:array[0..100] of integer;
<span>i,n:integer; </span>
<span>begin </span>
<span>read(n); </span>
<span>for i:=0 to n-1 do begin read(a[i]); </span>
<span>if i mod 2=0 then a[i]:=1 else </span>
<span>a[i]:=i mod 5; </span>
<span>end; </span>
<span>for i:=0 to n-1 do write(a[i],' '); </span>
<span>end.</span>
В принципе тут все так же и пишется....
a) f:= a + b * x + c * y * z;
b) f:= ((a * x - b) * x + c) * x - d;
или если вместо квадратных скобок прямые:
f:= abs((a * x - b) * x + c) * x - d;
c) f:= a + b / c + c / a * b;
или если там есть скобки:
f:= (a + b) / c + c / (a * b)
d) f:= x + y / a1 * a2 / x - y;
write('введите a,b,c,d,x,y,z,a1,a2'); readln(a,b,c,d,x,y,z,a1,a2);
Вскипятить воду
положить в кружку пакетик
залить кружку кипятком
Program z;
var
a:array[1..8] of integer;
i,k,s:integer;
begin
for i:=1 to 8 do
begin
a[i]:=random(9)+1;
end;
for i:=1 to 8 do
begin
if a[1] mod 2=0 then
k:=k+1
else
s:=s+a[i];
end;
writeln('Summa=',s);
writeln('Kol-vo=',k);
<span>end.</span>