Как можно составить такой массив Turbo Pascale

[Денис999]

Дано массив A (N). Построить массив С из позитивных элементов заданного массива А и упорядочить массив С в порядке убывания.
Задание выполнить тремя способами:
1.з использованием цикла со счетчиком;
2.з использованием цикла к проверке условия;
3.з использованием цикла после проверки условия.

[ROMA2PVT]

1.з использованием цикла со счетчиком;

var
a,x:array[1..100] of integer;
i,n,kol:integer;
begin
kol:=0;
randomize;
  write('Введите количество элементов: ');
  readln(n);
  for i:=1 to n do
begin
a[i]:=random(10)-5;
write('a[',i,']=',a[i],' ');
 if a[i]>0 then
    begin
    inc(kol);
    x[kol]:=a[i];
  end;
end;
writeln;
for i:=1 to kol do
begin
  write('x[',i,']=',x[i],' ');
  end;
  readln;
  end.

[Денис999]

ROMA2PVT-спасибо тебе большое)))
Подскажите я правильно сделал??
2.з использованием цикла к проверке условия;

var
a,x:array[1..100] of integer;
i,n,kol:integer;
begin
kol:=0;
randomize;
  write('Введите количество элементов: ');
  readln(n);
  for i:=1 to n do
begin
a[i]:=random(10)-5;
write('a[',i,']=',a[i],' ');
 if a[i]>0 then
    while i<n+1 do  begin
    inc(kol);
    x[kol]:=a[i];
  end;
end;
writeln;
for i:=1 to kol do
begin
  write('x[',i,']=',x[i],' ');
  end;
  readln;
  end.

[ROMA2PVT]

var
a,x:array[1..100] of integer;
i,n,kol:integer;
begin
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(10)-5;
write('a[',i,']=',a[i],' ');
end;
writeln;
i:=1;
kol:=0;
while i<=n do
begin
if a[i]>0 then
begin
inc(kol);
x[kol]:=a[i];
end;
inc(i);
end;
writeln;
for i:=1 to kol do
begin
write(x[i],' ');
end;
readln;
end.

var
a,x:array[1..100] of integer;
i,n,kol:integer;
begin
randomize;
write('Введите количество элементов: ');
readln(n);
for i:=1 to n do
begin
a[i]:=random(10)-5;
write('a[',i,']=',a[i],' ');
end;
writeln;
i:=1;
kol:=0;
repeat
begin
if a[i]>0 then
begin
inc(kol);
x[kol]:=a[i];
end;
inc(i);
end;
until i>n;
writeln;
for i:=1 to kol do
begin
write(x[i],' ');
end;
readln;
end.

[Денис999]

Спасибо большое

[ROMA2PVT]

не за что.

[Денис999]

А я 3 задание сделал с таким кодом:
repeat
if a[i]<0 then begin


Она тоже работала, только выводила отрицательные числа

[ROMA2PVT]

Тебе положитеьные элементы сказано записать а не отрицательные.

[Денис999]

Та я понял на всякий случай сохраню и этот вариант вдруг попросит отрицательные вывести

[ROMA2PVT]

Также с учётом нулевых можно.

if a[i]>=0 then
if a[i]<=0 then