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 |