Дан массив а, состоящий из одномерных чисел. Построить массив b, состоящий из положительных элементов одномерного массива а

program z1;

var a,b:array [1..10] of integer;

i,k:integer;

begin

k:=0;

write ('Массив А: ');

for i:=1 to 10 do

begin

a[i]:=random(19)-9;

write (a[i]:5);

if a[i]>0 then

begin

k:=k+1;

b[k]:=a[i]

end

end;

writeln;

write ('Массив В: ');

for i:=1 to k do write (b[i]:5)

end.

Объяснение:

k - переменная отвечающая за индексы массива В

Если элемент массива А положительный, то увеличиваем k на 1 и присваиваем k элементу массива В значение элемента массива А