Определить, каким по порядку стартовал лыжник, показавший лучший результат

@CyberMen · Регистрация: 19.01.2015

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

Известны результаты каждого из участников соревнований по лыжным гонкам (время затраченное на прохождение гонки). Спортсмены стартовали по одному. Результаты даны в том порядке, в каком спортсмены стартовали. Определить, каким по порядку стартовал лыжник, показавший лучший результат.

@Puporev · 20.02.2015, 20:36

Pascal

1
2
3

imn:=1;
for i:=1 to n do
if a[i]<a[imn] then imn:=i;

@CyberMen · 20.02.2015, 20:37 **[ТС]**

Сообщение от Puporev

Pascal

1
2
3

imn:=1;
for i:=1 to n do
if a[i]<a[imn] then imn:=i;

можно по подробнее?

@Puporev · 20.02.2015, 20:39

Введите n-количество спортсменов.
Введите массив из n номеров.
Далее мой код.
Вывод номера imn

@CyberMen · 20.02.2015, 20:51 **[ТС]**

Puporev, ввести массив это readln(a[n]);?

@Puporev · 20.02.2015, 21:00

Сообщение от CyberMen

ввести массив

Описание, объявление и заполнение массивов (матриц)

@CyberMen 0 / 0 / 1 Регистрация: 19.01.2015 Сообщений: 67
		1
	Определить, каким по порядку стартовал лыжник, показавший лучший результат 20.02.2015, 19:34. Показов 1250. Ответов 5 Метки нет (Все метки) Известны результаты каждого из участников соревнований по лыжным гонкам (время затраченное на прохождение гонки). Спортсмены стартовали по одному. Результаты даны в том порядке, в каком спортсмены стартовали. Определить, каким по порядку стартовал лыжник, показавший лучший результат. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.02.2015, 20:39	4
	Введите n-количество спортсменов. Введите массив из n номеров. Далее мой код. Вывод номера imn 0

@CyberMen 0 / 0 / 1 Регистрация: 19.01.2015 Сообщений: 67
	20.02.2015, 20:51 [ТС]	5
	Puporev, ввести массив это readln(a[n]);? 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.02.2015, 21:00	6
	Сообщение от CyberMen ввести массив Описание, объявление и заполнение массивов (матриц) 0