Известна информация о результатах 22 спортсменов, участвовавших в соревнованиях по бегу на 100 м

@434525925259 · Регистрация: 06.12.2021

Author24 — интернет-сервис помощи студентам

Известна информация о результатах 22 спортсменов, участвовавших в соревнованиях по бегу на 100 м.(результаты оказались в диапазоне от 9 до 15сек).

1. Определите среднее время показанное спортсменами и выведите на экран сначала номера спортсменов, показавших результаты ниже среднего, а затем выше среднего..
2. Определить результаты спортсменов, занявших первое и последнее места, и выведите их на экран.

@JuriiMW · 06.12.2021, 15:29

Pascal

## var a:=ArrRandomInteger(22,9,15);
a.Println;
var av:=a.Average;
a.Numerate.Where(x->x[1]<av).Select(x->x[0]).Println;
a.Numerate.Where(x->not(x[1]<av)).Select(x->x[0]).Println;
a.Numerate.MinBy(x->x[1])[0].Println;
a.Numerate.MaxBy(x->x[1])[0].Println;

@XzzzX · 06.12.2021, 15:37

Pascal

##
var results:= arrrandom(22, 9, 15);
var average:= results.Average;
results.Indices(t-> t < average).Println;
results.Indices(t-> t > average).Println;
print(results.IndexMax, results.IndexMin);

это если не заботится об максимальной эффективности и нумеровать спортсменов от 0

@434525925259 0 / 0 / 0 Регистрация: 06.12.2021 Сообщений: 1
		1
	Известна информация о результатах 22 спортсменов, участвовавших в соревнованиях по бегу на 100 м 06.12.2021, 12:25. Показов 806. Ответов 2 Метки Pascal (Паскаль), pascal abc, pascal abc net, массив pascal (Все метки) Известна информация о результатах 22 спортсменов, участвовавших в соревнованиях по бегу на 100 м.(результаты оказались в диапазоне от 9 до 15сек). 1. Определите среднее время показанное спортсменами и выведите на экран сначала номера спортсменов, показавших результаты ниже среднего, а затем выше среднего.. 2. Определить результаты спортсменов, занявших первое и последнее места, и выведите их на экран. 0

	06.12.2021, 15:37