44 lines
792 B
ObjectPascal
44 lines
792 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,
|
|||
|
|
// <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> foreach
|
|||
|
|
|
|||
|
|
uses System.Collections.Generic;
|
|||
|
|
|
|||
|
|
const n = 10;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
x: integer;
|
|||
|
|
a: array [1..n] of integer;
|
|||
|
|
b: array of integer;
|
|||
|
|
s: set of integer;
|
|||
|
|
l: List<integer>;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
for var i:=1 to n do
|
|||
|
|
a[i] := Random(100);
|
|||
|
|
// <20><><EFBFBD><EFBFBD> foreach <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
foreach x in a do
|
|||
|
|
write(x,' ');
|
|||
|
|
writeln;
|
|||
|
|
|
|||
|
|
SetLength(b,n);
|
|||
|
|
for var i:=0 to n-1 do
|
|||
|
|
b[i] := Random(100);
|
|||
|
|
|
|||
|
|
// <20><><EFBFBD><EFBFBD> foreach <20><> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
foreach x in b do
|
|||
|
|
write(x,' ');
|
|||
|
|
writeln;
|
|||
|
|
|
|||
|
|
s := [2..5,10..14];
|
|||
|
|
foreach x in s do
|
|||
|
|
write(x,' ');
|
|||
|
|
writeln;
|
|||
|
|
|
|||
|
|
l := new List<integer>;
|
|||
|
|
l.AddRange(b);
|
|||
|
|
l.Reverse;
|
|||
|
|
foreach x in l do
|
|||
|
|
write(x,' ');
|
|||
|
|
writeln;
|
|||
|
|
|
|||
|
|
end.
|