tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу на языке паскаль
Написать программу на языке паскаль подсчета суммы всех отрицательных элементов массива размерностью 100 элементов
олтисьл
3 26.07.2019 01:00
0
Ответы
sevryakrut
03.10.2020 13:06
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
Print('Отрицательных:',ArrRandom(100,-50,50).Println
.Where(x->x<0).Count)
end.
Тестовое решение:
-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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Софи1234567890я
27.05.2021 14:06
ИНФОРМАТИКА Дана программа:Program Primer,VarN,result: real;BeginWriteln(Введите значения переменной N );Write( N= );Readln(N);Result := sqr((4+N)*8);Writeln (result:8:0);Readln;...
konstantunzayac
27.05.2021 13:56
Запиши целое число в виде суммы разрядных слагаемых — единиц, десятков, сотен, тысяч и так далее. 30048= ⋅10000+ ⋅1000+ ⋅100+ ⋅10+ ⋅1 30170= ⋅10000+ ⋅1000+ ⋅100+ ⋅10+...
Nickhoffmanru
27.05.2021 13:50
3. Даны два целых числа А и В (при этом А...
22222ssssssss
27.05.2021 13:44
3. Даны два целых числа А и В (при этом А...
DariKetrin
27.05.2021 13:37
Ребятааа решить задание егэ по информатике....
mranishanbaev
27.05.2021 13:33
надо сделать в лазарусе и кинуть скрин проекта чтоби било видно и можна било переписать в средство разраби Lazarus на язике паскаль задания в документе за обман обращаюсь...
PonchikPonchikovuy
27.05.2021 13:33
Найдите ошибку Document Привет Я немного запутался как делать переносы Но, надеюсь ты мне сможешь . Потому что я не уверен, что все сделал правильно...
Irina12345678901
27.05.2021 13:32
В массиве из 15 целых чисел найдите наибольший элемент. Нарисуйте блок схему...
oraevadiana
27.05.2021 13:30
решить эти две задачи из егэ по информатике, наградой не обижу....
ilyailiavolkov
27.05.2021 13:26
Цикл while отличается тем, что: * 1)команды повторяются пока выполняется условие 2)команды повторяются столько раз, сколько задано в параметре цикла 3)известно количество...
Популярные вопросы
Неліктен Әл - Азазия ыстық аймақ ?...
3
Помагит! написать глаголы () в трёх времегах ...
3
Хімічний елемент який входить до складу гемоглабіну...
3
Сделайте проект про витамин D...
3
На какой текст отвечает повествовательный...
3
юные натуралисты посадили 400 семян каждое второе семя из 50 не...
3
Определите Массовые доли элементов в следующих соединениях: Mg(OH)2,...
3
Подбери рифму к словам Огурец — …дец. Заяц — ..лец. Очки — …чки.Цветок...
3
Найди ошибку на рисунках изображены...
2
Какова общий заряд электронов и масса атома кислорода...
1
begin
Print('Отрицательных:',ArrRandom(100,-50,50).Println
.Where(x->x<0).Count)
end.
Тестовое решение:
-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