Задано количество хоккеистов N и для каждого указаны количество забитых шайб и штрафное время, заработанное в течение матча. Необходимо определить, какое количество шайб забил самый корректный игрок, т.е. игрок с минимальным штрафным временем — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
CLS
INPUT "ВВЕДИТЕ КОЛИЧЕСТВО ХОККЕИСТОВ";N
PRINT "ВВЕДИТЕ КОЛИЧЕСТВО ШАЙБ, ЗАБИТЫХ КАЖДЫМ ХОККЕИСТОМ"
DIM SHAIB(N)
FOR I=1 TO N
  LOCATE 4,I*8
  INPUT SHAIB(I-1)
NEXT I
PRINT
PRINT "ВВЕДИТЕ ШТРАФНОЕ ВРЕМЯ ДЛЯ КАЖДОГО ИГРОКА"
DIM SHTRAF(N)
FOR I=1 TO N
  LOCATE 8,I*8
  INPUT SHTRAF(I-1)
NEXT I
PRINT
J=0
FOR I=1 TO N-1
  IF SHTRAF(I)<SHTRAF(J) THEN J=I
NEXT I
PRINT "САМЫЙ КОРРЕКТНЫЙ ИГРОК ЗАБИЛ ";SHAIB(J);" ШАЙБ"
END

Похожие записи/страницы: