I> DIM A (N): DIM B (N - 1)
40 FOR i = 1 TO N: INPUT A (i): NEXT i
50 Z = 1: MAX = A (Z)
60 FOR i = 2 TO N
70 IF A (i)> MAX THEN MAX = A (i): Z = i
80 NEXT i
90 FOR i = 1 TO N
100 IF i <> Z THEN S = S + 1: B (S) = A (i)
120 NEXT i
130 FOR i = 1 TO N
140 LOCATE 10, i * 3: PRINT A (i)
150 NEXT i
160 FOR i = 1 TO N - 1
170 LOCATE 15, i * 3: PRINT B (i)
180 NEXT i
190 END
В В В В В В В В В В В В В В В
Список джерел інформації : b>
В В
1. Вбудована довідка Microsoft Excel 7.0
В
2. Вбудований підручник Microsoft Windows 98 SE
В
3. Офіційний сайт компанії Microsoft Corp. в Internet:
В
# "#"> Www.microsoft.com/rus
В В В В В