Составить программу , которая заполняет массив а [1..10] случайным целыми цислами в диапазоне от 1 о 10 и вычисляет произведения элементов массива с нечетными значениями
ОТДЕЛ Задание+; ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР a: РЯД 10 ИЗ ЦЕЛ; сч: ЦЕЛ; произведение: ЦЕЛ;
УКАЗ ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1 КОН; произведение := 1; ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП ЕСЛИ НЕ ЧЕТ(a[сч]) ТО произведение := произведение * a[сч] КОН КОН
Я думаю,в пользовательском интерфейс компьютера будущего,будет управление голосовыми командами,а так же зрительными командами и движением рук.Не будут нужны старомодные мышки,клавиатуры и прочее.Что бы что-то перелистывать,искать и так далее,нужны будут только:руки,глаза и речь.Для доступа в систему возможно использование отпечатков пальцев или сетчатки.Будут сильные уровни защиты,информация не сможет утечь.Так же возможно изобретение новых вирусов.Например вирус который блокируют движение руками или голосовое управление.Так же будет придумано новые антивирусное ПО,которые будет удалять эти вирусы.
P.S-Исправь грамматические ошибки если,я не силен в русском языке.Смысл понятен,если что-то надо-добавь.
Чип, вживляемый в мозг всем при рождении. Он подключен непосредственно к нейронам, передает компу напрямую команды (без необходимости пользоваться мышкой и клавой) , и передает от компа в мозг видео и аудио сигналы без необходимости пользоваться монитором и наушниками. Кроме того, становится возможно передавать запахи, вкусы и ощущения.
... очень скоро находится кучка хакеров, которые ломают эту систему, превращая всех людей на планете в зомби. Кучка хакеров захватывает мир. Потом главный хакер убивает всех других хакеров и становится правителем мира. И никто даже не рыпнется против него! :) Занавес.
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
a: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
произведение: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
произведение := 1;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ НЕ ЧЕТ(a[сч]) ТО
произведение := произведение * a[сч]
КОН
КОН
КОН Задание.