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 элементу массива В значение элемента массива А
