EgrVir2018
14.03.2021 11:58

Найти сумму отрицательных элементов массива из 10 элементов, введенного с датчика случайных чисел в диапазоне (-500; 500).​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
hhhhh555550
29.12.2021 18:39
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var p:=ArrRandom(200,-99,99); p.Println;
  Writeln('Числа, кратные трем');
  p.Where(k->k mod 3=0).Println;
  Writeln('Сумма положительных равна ',p.Where(k->k>0).Sum)
end.

Пример
-46 86 -75 83 87 -17 -23 -46 -95 8 19 -2 -93 -18 -47 65 66 81 77 79 30 -40 -76 99 -19 67 -39 25 21 65 64 49 54 -9 18 -98 -43 84 76 -9 64 53 86 -48 -77 -51 -93 22 -31 76 -93 86 -45 -94 92 93 62 -74 3 -79 -77 52 33 -61 44 69 43 15 63 -48 8 82 -94 -14 -84 76 -27 72 76 -67 60 38 -44 45 59 78 -6 48 -1 24 -61 -68 -18 55 -31 -88 -79 48 7 -46 5 -8 58 -82 -31 -75 80 69 90 -83 21 90 -51 -30 -39 -16 -3 87 -20 66 -25 94 -84 -61 -87 -24 0 -50 -82 -96 55 25 -35 23 27 -31 80 -62 -23 34 97 25 58 -17 -96 -51 83 -88 -5 85 15 -67 -31 41 78 11 -24 19 -95 92 24 30 52 86 -39 96 25 26 43 91 3 -41 11 45 68 50 -64 33 -64 64 -7 -11 55 -68 -12 22 -43 24 44 -83 92 -38 -67 -16 -89 -32 73 71 -77 -93
Числа, кратные трем
-75 87 -93 -18 66 81 30 99 -39 21 54 -9 18 84 -9 -48 -51 -93 -93 -45 93 3 33 69 15 63 -48 -84 -27 72 60 45 78 -6 48 24 -18 48 -75 69 90 21 90 -51 -30 -39 -3 87 66 -84 -87 -24 0 -96 27 -96 -51 15 78 -24 24 30 -39 96 3 45 33 -12 24 -93
Сумма положительных равна 5671
0,0(0 оценок)
Ответ:
Евгений060704
15.04.2022 19:30

Кто с промежуточной аттестацией (тестом) Предупреждение : Wery Hard

--1 во Закончите фразу : "Информация это -

1)Последовательность знаков некоторого алфавита.

2)Книжный фонд библиотеки.

3)Сведения об окружающем мире и протекающих в нём процессах, воспринимаемые человеком непосредственно или с специальных устройств.

4)Сведения,содержащиеся в научных теориях.

--2 во Закончите фразу: "Компьютер это -

1)Устройство для автоматической обработки числовой информации.

2)Устройство для хранения информации.

3)Устройство для поиска,сбора,хранения,преобразования и использования информации в цифровом формате.

4)Совокупность программных средств,осуществляющих управление информационными ресурсами.

--3 во Отметьте информационные процессы (действия с информацией)

1)Работа на компьютере с клавиатурным тренажёром"

2)Установка телефона музыкального диска"

4)Чтение книги"

5)Видеодиск

6)Заучивание правила"

7)Толковый словарь

8)Видео

--4 во Отметьте устройства, предназначенные дл вывода информации.

1)Принтер"

2)Процессор

3)Монитор"

4)Сканер

5)Графопостроитель"

6)Джойстик

7)Клавиатура

8)Мышь

9)Микрофон

10)Акустические колонки"

11)Диск.

--5 во Отметьте элементы окна не имеющие отношения к приложению Paint.

1)Название приложения

2)Строка меню

3)Кнопка Закрыть

4)Кнопка Свернуть

5)Панель инструментов

6)Палитра

7)Панель Формирование"

8)Рабочая область

9)Полосы прокрутки

--6 во Отметьте операции при формировании документов.

1)Вставка

2)Удаление

3)Замена

4)Изменение шрифта"

5)Изменение начертания"

6)Изменение цвета"

7)Поиск и замена

8)Выравнивание"

--7 во Отметьте верное.

1)При формировании текстового документа происходит обработка связанная с получением нового содержания,новой информации или обработка информации не происходит.

2)При разработке плана действий происходит обработка, связанная с изменением формы информации, но не имеющая её содержания"

--8 во Отметьте информационные процессы (действия с информацией).

1)Разговор по телефону"

2)Посадка дерева

3)Диск любимой музыкальной группы

4)Письмо приятелю

5)Выполнение контрольной работы"

6)Разгадывание кроссворда телепередачи"

8)Учебник математики

--9 во пошла дичь) Считая,что каждый символ кодируется одним байтом, определите информационный объём следующего текста :

"В 1642 году Б.Паскаль создал первую механическую счётную машину."

1)64 бита

2)512 БИТ

3)54 байта"

4)512 БАЙТ

--10 во Слово алгоритм происходит от латинской формы написания имени великого математика :

1)Паскаль"

2)Аль Хорезми

3)Аль Фараби.

Всё,большая ответить сегодня,а то завтра мне

Объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота