ПОМОГИТЕ СРОЧНО НАПИСАТЬ ПРОГРАММУ пусть дано 100 вещественных чисел,которые вводятся по одному.Найдите количество положительных,отрицательных и
10-11 класс
|
нулевых элементов.
1
2
3
4
5
6
7
8
9
10
11 CLS
FOR c = 1 TO 100
PRINT "Vvedi chislo"; c;
INPUT ": ", n
r = SGN(n) + 1
p(r) = p(r) + 1
NEXT
PRINT STRING$(80, 196)
PRINT "Pologitelnyh :"; p(2)
PRINT "Otricatelnyh :"; p(0)
PRINT "Nulevih :"; p(1)
Другие вопросы из категории
часть, значения арифметического квадратного корня, остаток от деления на 5, символ по целой части числа.
Читайте также
добрый вечер, всем. помогите, пожалуйста, написать программу на Ассемблере.
задание:
Создать программу на языке Ассемблер, что позволяет организовать вычисления над элементами массивов
Объединить два массива 8-битных целых чисел со знаком. Сначала элементы второго затем первого.
заранее огромное спасибо всем!
2.Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Подсчитать, сколько слов расположено внутри этих скобок.
3.Дана строка. Удалить из нее все запятые и подсчитать, сколько получилось удаленных символов.
Помогите, пожалуйста!
2)Написать программу определяющую сумму всех нечетных чисел от 1 до 99