нужна помощь с Pascal

+ 0 -

дима323цу

08 авг. 2013 г., 18:54:10 (10 лет назад)

program gt;
const n=6;
var i,k,j:integer;
a,b:array[1..1000]of real;
p:real;
begin
k:=0;
for i:=1 to n do
begin
read(a[i]);
if(a[i]<0)then begin
k:=k+1;
b[k]:=a[i];
end;
end;
if(k=0)then writeln('NO') else begin
writeln(k);
for i:=1 to k-1 do
for j:=i+1 to k do
if(b[j]>b[j+1])then begin
p:=b[j];
b[j]:=b[j+1];
b[j+1]:=p;
end;
for i:=1 to k do
write(b[i],' ');
end;
end.

+ 0 -

Kamilla2999

08 авг. 2013 г., 21:16:07 (10 лет назад)

честно сам без понятия почему и прошу помощи

+ 0 -

Debera

08 авг. 2013 г., 23:32:29 (10 лет назад)

все понял.вот решение

+ 0 -

MaxМаксmax2000

09 авг. 2013 г., 1:00:13 (10 лет назад)

можно узнать все таки что нужно было сделать ? новый массив или что?

+ 0 -

Pavelik2002

09 авг. 2013 г., 2:36:46 (10 лет назад)

нужно было создать массив(новый) который хранить все отрицательные числа массива A(начального массива) и сортировать их по возрастанию(в условии сказано вывести в порядке возрастания элементов.Это тоже самое что отсортировать новый массив)

+ 0 -

89306966758

09 авг. 2013 г., 5:01:45 (10 лет назад)

Пример:9 -8 -4 5 -7 2 ответ: -8 -7 -4