Ввод данных заменен на инициализацию от датчика псевдослучайных чисел на интервале [-45;45]. Если нужен именно ввод, строку A(I)=RND... замените на INPUT(A(I))
CONST n = 10 DIM a(1 TO n, 1 TO n) AS INTEGER RANDOMIZE TIMER CLS PRINT "Матрица A" FOR i = 1 TO n FOR j = 1 TO n a(i, j) = INT(90 * RND - 45) PRINT USING ""; a(i, j); NEXT j PRINT NEXT i k = 0 FOR i = 1 TO n IF a(i, i) > 0 THEN k = k + 1 NEXT i PRINT PRINT "Количество положительных на ГД равно "; k
Флеш-память — память типа Flash — разновидность полупроводниковой технологии электрически перепрограммируемой памяти (EEPROM). В народе флеш-памятью называют широкий класс твердотельных устройств хранения информации. Флеш-память (в отличие от винчестеров) используют в накопителях смартфонов, особого класса ноутбуков (по причине дороговизны этого типа памяти) и кое-где еще. Особенность этого типа памяти, помимо дороговизны и быстродействия — конечное число циклов перезаписи. Также практически невозможно найти накопители с флеш-памятью большого объема.Компакт-диск (англ. Compact Disc, CD) — оптический носитель информации в виде пластикового диска с отверстием в центре, процесс записи и считывания информации которого осуществляется при лазера. Дальнейшим развитием компакт-дисков стали DVD и Blu-ray, прообразом была граммофонная пластинка.
Изначально компакт-диск был создан для хранения аудиозаписей в цифровом виде (известен как CD-Audio), однако в дальнейшем стал широко использоваться как носитель для хранения любых данных (файлов) в двоичном виде (т.н. CD-ROM — англ. Compact Disc Read Only Memory, компакт-диск с возможностью только чтения, или КД-ПЗУ — «Компакт-диск, постоянное запоминающее устройство»). В дальнейшем появились компакт-диски с возможностью не только чтения однократно занесённой на них информации, но и записи (CD-R — англ. Compact Disc-Recordable, записываемый компакт-диск) и перезаписи (CD-RW — англ. Compact Disc-ReWritable, перезаписываемый компакт-диск).
Ввод данных заменен на инициализацию от датчика псевдослучайных чисел на интервале [-45;45]. Если нужен именно ввод, строку A(I)=RND...
замените на INPUT(A(I))
CONST n = 10
DIM a(1 TO n, 1 TO n) AS INTEGER
RANDOMIZE TIMER
CLS
PRINT "Матрица A"
FOR i = 1 TO n
FOR j = 1 TO n
a(i, j) = INT(90 * RND - 45)
PRINT USING ""; a(i, j);
NEXT j
PRINT
NEXT i
k = 0
FOR i = 1 TO n
IF a(i, i) > 0 THEN k = k + 1
NEXT i
PRINT
PRINT "Количество положительных на ГД равно "; k
Пример выполнения программы
Матрица A
-33 43 -43 3 19 -43 28 19 32 27
-40 -4 -11 -27 -30 -7 35 19 24 0
-21 -43 30 10 -16 39 43 16 30 4
-39 40 13 3 -42 -5 -27 38 39 27
-26 34 -17 -26 12 36 21 23 28 -29
15 33 -44 -20 2 -36 -38 42 -44 -27
-10 -6 15 -17 -39 10 21 1 -6 32
-23 8 19 27 -19 -43 43 6 12 -18
-14 -39 8 -8 -4 18 44 6 -30 -24
9 -18 0 40 16 15 28 44 26 26
Количество положительных на ГД равно 6
Изначально компакт-диск был создан для хранения аудиозаписей в цифровом виде (известен как CD-Audio), однако в дальнейшем стал широко использоваться как носитель для хранения любых данных (файлов) в двоичном виде (т.н. CD-ROM — англ. Compact Disc Read Only Memory, компакт-диск с возможностью только чтения, или КД-ПЗУ — «Компакт-диск, постоянное запоминающее устройство»). В дальнейшем появились компакт-диски с возможностью не только чтения однократно занесённой на них информации, но и записи (CD-R — англ. Compact Disc-Recordable, записываемый компакт-диск) и перезаписи (CD-RW — англ. Compact Disc-ReWritable, перезаписываемый компакт-диск).