17 lines
313 B
ObjectPascal
17 lines
313 B
ObjectPascal
|
type
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> = record
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD>: string;
|
|||
|
|
<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>: integer;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var p: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>;
|
|||
|
|
p.<EFBFBD><EFBFBD><EFBFBD> := 'dfh';
|
|||
|
|
var pupils: array of <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> := Arr(p,p,p);
|
|||
|
|
var question := pupils.GroupBy(p->p.<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>);
|
|||
|
|
foreach var group in question do
|
|||
|
|
begin
|
|||
|
|
foreach var pp: <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> in group do
|
|||
|
|
Println(pp);
|
|||
|
|
end;
|
|||
|
|
end.
|