ОЧЕНЬ СРОЧНО ПЛИЗ Дан целочисленный массив A[n]. Найти новый массив B, состоящий из…

var a,b: array[1… 10] of integer; i,k,n: integer; Begin {zadat massiv A} read (n); for i: =1 to n do if a[i]>0 then begin k: =k+1; b[k]: =a[i]; end; for i: =1 to k do writeln (b[i]); End.