var a,b: array[1..n] of integer; i, j, i2: integer;
begin Randomize; Writeln('Элементы массива'); j:=0; for i := 1 to n do begin a[i] := Random(51)-25; Write(a[i]:4); if a[i]<0 then begin Inc(j); b[j]:=a[i] end; end; Writeln; for i := 1 to n do if a[i]>=0 then begin Inc(j); b[j]:=a[i] end; Writeln('Результат'); for i := 1 to n do Write(b[i]:4); Writeln end.
Var a,b,c,p,q,h,x,y:real; begin Write('Введите через пробел коэффициенты a,b,c: '); Read(a,b,c); Write('Введите через пробел границы интервала [p;q]: '); Read(p,q); Write('Введите шаг табуляции h: '); Read(h); x:=p; while x<=q+h/10 do begin y:=c+x*(b+x*a); { схема Горнера для вычисления значения полиномов } Writeln(x:15:8,y:15:8); x:=x+h end end.
n = 20;
var
a,b: array[1..n] of integer;
i, j, i2: integer;
begin
Randomize;
Writeln('Элементы массива');
j:=0;
for i := 1 to n do
begin
a[i] := Random(51)-25;
Write(a[i]:4);
if a[i]<0 then begin Inc(j); b[j]:=a[i] end;
end;
Writeln;
for i := 1 to n do
if a[i]>=0 then begin Inc(j); b[j]:=a[i] end;
Writeln('Результат');
for i := 1 to n do Write(b[i]:4);
Writeln
end.
Тестовое решение:
Элементы массива
3 14 10 1 -3 -2 -11 -12 13 1 17 13 8 24 -3 -23 -17 -8 -10 -22
Результат
-3 -2 -11 -12 -3 -23 -17 -8 -10 -22 3 14 10 1 13 1 17 13 8 24