Написать програму для Паскаля :Дан линейный массив,содержащий положительные и...

Question

Написать програму для Паскаля :Дан линейный массив,содержащий положительные и отрицательные целые числа ,n=10.Создать новый массив, в котором содержатся только положительные элементы из исходного масива ,упорядочить этот новый массив по возрастанию.

Answer 1

var
i, j, k, p: integer;
a, b: array[1..10] of integer;

begin
k := 0;
for i := 1 to 10 do
begin
a[i] := random(20) - 10;
write(a[i]:3);
if a[i] > 0 then
begin
k := k + 1;
b[k] := a[i];
end;
end;
for i := 1 to k - 1 do
for j := i + 1 to k do
if b[i] > b[j] then
begin
p := b[i];
b[i] := b[j];
b[j] := p;
end;
writeln;
for i := 1 to k do write(b[i]:3);
end.