Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
Лариса1965
4 года назад
10
Написать программу на языке паскаль подсчета суммы всех отрицательных элементов массива размерностью 100 элементов
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
Deniwik
[21]
4 года назад
0
0
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Print('Отрицательных:',ArrRandom(100,-50,50).Println
.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
-22 8 50 -18 -37 -43 3 -18 50 -2 -33 -23 -32 41 -37 -6 -20 0 -14 40 6 -43 20 25 4 12 -1 -36 -44 -46 9 35 12 30 19 1 -36 8 -30 23 -48 38 47 34 -50 -47 27 48 -31 -13 46 -46 -42 29 -43 -29 38 -26 28 2 9 -12 -25 46 40 -17 15 -12 -28 12 -21 22 -20 13 37 19 -39 37 25 1 35 1 45 19 -42 4 26 34 23 -3 14 41 31 19 -36 15 12 -49 45 18
Отрицательных: 42
Отправить
Читайте также
У исполнителя Омега две команды, которым присвоены номера:1. прибавь 3;2. раздели на b(b — неизвестное натуральное число; b ≥ 2)
kazhok85
Ответ во вложении...
0
0
4 года назад
Процесс преобразования сигнала из формы,для удобной непосредственного использования информации,в форму, удобную для передачи,хра
Белочка88 [24]
2й вариант... Кодирование
0
0
1 год назад
Кто такой Чита учёный или философ
BlackDeri [11]
вроди бы*****философ....
0
0
8 месяцев назад
Прочитать ещё 2 ответа
2 в 12 степени бит перевести в байты
Арсен73 [7]
2^12 бит = 4096 бит. в одном байте - 8 бит. 4096 бит = 512 байт. в 1 Кбайте - 1024 байта => 2^12 бит = 1/2 Кбайт
0
0
4 года назад
Прочитать ещё 2 ответа
Ввести с клавиатуры двухзначное число является ли оно симитричным, Pascal abc срочно надо!!!
mrSergrj75 [300]
Var n,a,b:integer; begin read(n); a:= n div 10; b:=n mod 10; if a=b then write('Число симметричное') else write('Число несимметричное'); end.
0
0
3 года назад
Смотрите также:
иван-царевич спешит выручить марью-царевну из плена кощея. в таблице указана протяженность дорог между пунктами, через которые о
6
·
1 ответ
Что такое запись,поле ? какую информацию они содержат?
8
·
1 ответ
В некотором текстовом редакторе используется только шрифт Times New Roman,для которого может быть установлен один из двух размер
13
·
1 ответ
Заполнить и распечатать на экране результатов массив целых чисел размером 15 элементов и найти сумму элементов массива
8
·
1 ответ
Вычислите объем книги в мбайтах,если в книге 600 страниц,а на страниц,а на странице 50 строк по 44 символа
13
·
1 ответ
"изображение на экране монитора "реферат. СПАСИБО ЗАРАНЕЕ;)
6
·
1 ответ
Помогите плиз 7 задачу Начали делать Паскаль и сказали сделать каждому по задаче Срочно нужно Заранее спасибо
7
·
1 ответ
Китайцы используют алфавит приблизительно из 256 знаков, корейцы — около 1024 символов. Какое сообщение из 20 знаков несет больш
6
·
1 ответ
Задание ниже.Помогите пожалуйста!!!!!!!!
7
·
1 ответ
1. В одном из представлений кодировки Unicode на каждый символ отводится два байта. Определите информационный объем слова из два
13
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!