Array length: Difference between revisions
add PL/I
Walterpachl (talk | contribs) (add PL/I) |
|||
Line 358:
2
>>> </lang>
=={{header|PL/I}}==
<lang pli> p: Proc Options(main);
Dcl a(2) Char(6) Init('apple','orange');
Put Edit('Array a has',(hbound(a)-lbound(a)+1),' elements.')
(Skip,a,f(2),a);
Put Skip Data(a);
End;</lang>
{{out}}
<pre>
Array a has 2 elements.
A(1)='apple ' A(2)='orange';</pre>
|