program p1 (input,output); { progrrmmer:mojtaba amirzade url http:\\www.ifjam.com date:1382/08/13 time:8,30' } var y,x:array[1..10] of real; k,j,i:integer; begin assign(input,'a:\programs\inp1.dat'); reset(input); assign(output,'a:\programs\outp1.dat'); rewrite(output); j:=0; for i:=1 to 10 do begin write('enter x[',i,'] >'); readln(x[i]); {input array } end; for i:=1 to 10 do if x[i]>0 then begin j:=j+1; y[j]:=x[i]; end; for j:=1 to j do writeln(' y[',j,']= ',y[j]:1); {write arrais} for j:=10-(9-j) to 10 do writeln('y[',j,'] is empety'); {write empety arrais} readln end.