26 lines
575 B
ObjectPascal
26 lines
575 B
ObjectPascal
// Ïðèìåð èëëþñòðèðóåò âîçìîæíîñòè îïåðàòîðà foreach
|
|
uses System.Collections.Generic;
|
|
|
|
var
|
|
a: array [1..5] of integer := (1,3,5,7,9);
|
|
s: set of integer;
|
|
l: List<integer>;
|
|
|
|
begin
|
|
write('foreach ïî îáû÷íîìó ìàññèâó: ':35);
|
|
foreach x: integer in a do
|
|
write(x,' ');
|
|
writeln;
|
|
|
|
s := [2..5,10..14];
|
|
write('foreach ïî ìíîæåñòâó: ':35);
|
|
foreach x: integer in s do
|
|
write(x,' ');
|
|
writeln;
|
|
|
|
l := new List<integer>;
|
|
l.Add(7); l.Add(2); l.Add(5);
|
|
write('foreach ïî äèíàìè÷åñêîìó ìàññèâó: ':35);
|
|
foreach x: integer in l do
|
|
write(x,' ');
|
|
end. |