"Объявлен набор в школьную баскетбольную команду. Известен рост каждого из N учеников, желающих попасть в эту команду.

Const n=50;Var i,k,m:integer;BeginRandomize;For i:=1 to n doBeginm:=random(151)+150;if m>=170 then inc(k);End;writeln(\'Претендентов = \',k);readln;End.ИЛИType Uchenik=RecordFam:string[12];rost:byte;End;Var A:array[1..100] of Uchenik;i,n:byte;Beginwrite(\'Введите кол-во учеников: \');readln(n);For i:=1 to n doBeginwriteln(\'Введите информацию о \',i,\'-ом ученике\');write(\'Фамилия: \');readln(A[i].Fam);write(\'Рост: \');readln(A[i].Rost);End;writeln(\'Кандидаты в баскетбольную команду\');writeln(\'-\');writeln(\' Фамилия | \',\'Рост \');writeln(\'-\');For i:=1 to n doif A[i].Rost>170 then writeln(A[i].Fam:12,\'|\':2,A[i].Rost:5);readln;End.