Как сделать чтоб в массиве были только положительные числа - Pascal

Формулировка задачи:

var a:array [1..20] of integer;
i,n:integer;
begin
write('vvedite n= ');
read(n) ;
writeln('vvedite massuv X');
for i:=1 to n do readln(a[i]);
writeln('massiv Y');
for i:=n downto 1 do
write('  ',a[i]);
readln;
end.

вот прога , а вот как сделать чтоб в массив Y переписывались только положительные числа

Решение задачи: «Как сделать чтоб в массиве были только положительные числа»

textual
                            Листинг программы 
                        

                            for i:=1 to n do readln(a[i]);
writeln('massiv Y');
for i:=n downto 1 do
if a[i]>=0 then
write('  ',a[i]);
readln;
end.
                        

Оцени полезность:

11 голосов , оценка 4.273 из 5

Похожие ответы