выбрать отрицательные элементы

[casper116]

Из последовательности чисел а1,а2,...,аn выбрать отрицательные элементы, подсчитать их число и переписать их подряд в массив Х. Очень нужно...

[andrewpalkin]

Если очень нужно , значит срочно начинай писать программу и выкладывай наработки , а мы поможем .

[casper116]

program pr1;
Const
     n=10;
Var
   A:array[1..n] of real;
   i,j:byte;
   kolotr:real
   
Begin
     writeln('Vvedite massiv:');
     for i:=1 to n do read(A[i]);
     readln;
     kolotr:=0;
     for i:=1 to n do begin
         if A[i]<0 then kolotr:=kolotr+1
         if A[i]<0 then writeln('otricateln:',A[i]:3:0);
     end;
     if kolotr>0 then writeln('Koli4estvo otr 4isel:',kolotr:3:0)
     else writeln('Net otricatelnyh elementov');
     readln;
End.

[casper116]

Я переписать подряд в массив Х не могу((( Прошу помощи.

[andrewpalkin]

Создай массив Х , по размеру который нашел , количество отрицательных элементов . Потом пройди еще раз по изначальному массиву и записывай , все отрицательные элементы в новый массив , вот и все

[Novi4ok_11]

const n=10;
var x:array[1..n] of real;
    A:array[1..n] of real;
    i,kolotr:integer;
begin
writeln('Vvedite massiv:');
for i:=1 to n do read(A[i]);
for i:=1 to n do
begin
 if A[i]<0 then
begin
kolotr:=kolotr+1;
x[kolotr]:= A[i];
end;
end;
for i:=1 to kolotr do Write(' ',x[i]:0:0);
Writeln;
Write(' Koli4estvo = ',kolotr);
readln;
end.

[casper116]

Благодарю!)) Только перед последним эндом еще один реадлн нужен. У меня вылетает без него)))

[Novi4ok_11]

Лучше добавить тогда вначале

uses crt;

вконце

readkey;