Question

Дан целочисленный массив из 30 элементов. Элементы могут принимать значения от 160 до 195 - рост учащихся. В баскетбольную команду берут тех, чей рост не менее 180 см. Составьте программу которая:
а) подсчитывает, сколько человек попало в команду
б) выводит номера учеников, попавших в команду и их рост
в)*находит минимальный рост игрока попавшего в команду

Программу нужно написать в Pascal ABC!! Помогите, пожалуйста, буду очень благодарна

Answer 1

##

var a := ArrRandom(30, 160, 195);

Print('Рост всех:');

a.Println;

var b := a.Numerate.Where(t -> t[1] >= 180).ToArray;

Println('В команду попало человек:', b.Length);

b.PrintLines(t -> $'{t[0],2} - {t[1]}');

var m := b.MinBy(t -> t[1]);

Print('Минимальный рост:', m[1])