Дана последовательность из м чисел. подсчитать, сколько в ней отрицательных, положительных и нулевых элементов на basic

clsinput "введи число элементов последовательности"; mdim a(m)for i = 1 to mprint "введи"; i; "элемент последовательности"; input a(m)if a(m) > 0 then x = x + 1if a(m) = 0 then y = y = 1if a(m) < 0 then z = z + 1next iprint "количество положительных элементов последовательности равно"; xprint "количество нулевых элементов последовательности равно"; yprint "количество отрицательных элементов последовательности равно"; zend

2-хранение информации 3- ввода: клавиатура, мышь, сканер  вывода: монитор, калонки, принтер 4-в двоичном коде 5-это  часть системы компьютерной  памяти, в которой временно хранятся данные и команды, необходимые процессору для выполнения им операции 6-  это память, предназначенная для длительного хранения программ и данных 7- комплекс взаимосвязанных программ, предназначенных для ресурсами компьютера и организации взаимодействия с пользователем. 8-  операционные системы позволяют в каждый момент времени решать только одну . такие системы обычно позволяют запустить одну программу в основном режиме. 9- системы позволяют запустить одновременно несколько программ, которые будут работать параллельно. 10-  единица измерения количества информации. 11- это наука  о способах и методах представления, обработки, передачи и хранения информации с эвм 12- главный вычислительный элемент компьютера 13- совокупность программ системы обработки информации и программных  документов, необходимых для эксплуатации этих программ.

Var s,k: integer; // описали переменные, которые будут использованы в программе: s и k целые числаbegins: = 500; // переменной s присвоили начальное значение 500for k: = 4 to 10 do// организовали цикл для k от 4 до 10 с шагом 1. то есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, k=10)s: = s - 2*k; // для каждого k поочередно считаем s: // k=4   --   s=500-2*4=492// k=5   --   s=492-2*5=482// k=6   --     s=482-2*6=470 // k=7   --   s=470-2*7=456 // k=8   --     s=456-2*8=440 // k=9   --   s=440-2*9=422 // k=10 --   s=422-2*10=402 write (s); // выводим на экран итоговое значение s: 402end.