1. Элементы массива задаются с клавиатуры:
CLS
DIM A(10)
FOR I = 1 TO 10
INPUT A(I);
NEXT I
PRINT : PRINT : PRINT: PRINT " MASSIV A(10) "
PRINT : PRINT " ";
FOR I = 1 TO 10
PRINT A(I); : NEXT I
? 2 ? 45 ? 67 ? 34 ? 16 ? 29 ? 30 ? 45 ? 16 ? 13
MASSIV A(10)
45 67 34 16 29 30 45 16 13
2.
Элементы
массива
задаются
формулой
.
DIM B(20)
PRINT : PRINT : PRINT: PRINT " MASSIV B(20) "
PRINT : PRINT " ";
FOR I = 1 TO 20
Y = I ^ 2 - 4
IF Y <= 0 THEN B(I) = 10: GOTO 10
B(I) = (I - 2) / Y^0.5
10 : PRINT " B(";: PRINT USING "##"; I;
PRINT ") =";: PRINT USING "##.##"; B(I);
IF I MOD 4 = 0 THEN PRINT : PRINT " ";
NEXT I
MASSIV B(20)
B( 1)=10.00 B( 2)=10.00 B( 3)= 0.45 B( 4)= 0.58
B( 5)= 0.65 B( 6)= 0.71 B( 7)= 0.75 B( 8)= 0.77
B( 9)= 0.80 B(10)= 0.82 B(11)= 0.83 B(12)= 0.85
B(13)= 0.86 B(14)= 0.87 B(15)= 0.87 B(16)= 0.88
B(17)= 0.89 B(18)= 0.89 B(19)= 0.90 B(20)= 0.90
3. Элементы массива вводятся из блока data:
DIM C(20)
DATA 12,23,24,75,45,15,18,31,45,86
DATA 2,34,90,54,64,23,27,45,72,74
PRINT : PRINT : PRINT
PRINT " MASSIV C(20) "
PRINT : PRINT " ";
FOR I = 1 TO 20
READ C(I)
PRINT USING "####"; C(I);
IF I MOD 10 = 0 THEN PRINT : PRINT " ";
NEXT I
MASSIV C(20)
12 23 24 75 45 15 18 31 45 86
2 34 90 54 64 23 27 45 72 74
4. Элементы массива задаются случайными числами:
DIM K(30)
PRINT : PRINT : PRINT: PRINT " MASSIV K(30) "
PRINT : PRINT " ";
FOR I = 1 TO 30
K(I) = INT(RND * 200 - 75)
PRINT USING "#####"; K(I);
IF I MOD 10 = 0 THEN PRINT : PRINT " ";
NEXT I
MASSIV K(30)
66 31 40 -18 -15 79 -73 77 87 66
-66 7 97 83 -1 117 99 -64 114 -3
29 78 -65 43 18 -16 49 54 -23 -20
5. Элементы двухмерного массива ( матрицы ) задаются случайными числами:
DIM D(6,6)
PRINT : PRINT : PRINT: PRINT " MASSIV D(6,6) "
PRINT : PRINT " ";
FOR I = 1 TO 6
FOR J = 1 TO 6
D(I,J) = INT(RND * 200 - 75)
PRINT USING "#####"; D(I,J);
NEXT J
PRINT : PRINT " ";
NEXT I
MASSIV D(6,6)
66 31 40 -18 -15 79
-73 77 87 66 -66 7
97 83 -1 117 99 -64
114 -3 29 78 -65 43
18 -16 49 54 -23 -20
89 42 122 107 -30