17 lines
313 B
ObjectPascal
17 lines
313 B
ObjectPascal
type
|
|
Ó÷åíèê = record
|
|
Èìÿ: string;
|
|
Êëàññ: integer;
|
|
end;
|
|
|
|
begin
|
|
var p: Ó÷åíèê;
|
|
p.Èìÿ := 'dfh';
|
|
var pupils: array of Ó÷åíèê := Arr(p,p,p);
|
|
var question := pupils.GroupBy(p->p.Êëàññ);
|
|
foreach var group in question do
|
|
begin
|
|
foreach var pp: Ó÷åíèê in group do
|
|
Println(pp);
|
|
end;
|
|
end. |