Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Halimali10
25.11.2022 22:48 •
Информатика
Составить алгоритм и программу. -23 ; 15 ; 32 ; 0 ; -56 ; 87 ; 7 - массивы. посчитать кол-во элементов массива ,которые больше нуля
Показать ответ
Ответ:
tagirova2
07.10.2020 06:28
// PascalABC.NET 3.3, сборка 1573 от 04.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr(-23,15,32,0,-56,87,7); a.Println;
Writeln('Кол-во элементов, больших нуля: ',a.Where(t->t>0).Count)
end.
Результат
-23 15 32 0 -56 87 7
Кол-во элементов, больших нуля: 4
0,0
(0 оценок)
Ответ:
Frikkkkkkkk
07.10.2020 06:28
Вот нужная программа. Суда прямо и вводи: -23 15 32 0 -56 87 7, только не вставь лишних пробелов
0,0
(0 оценок)
Популярные вопросы: Информатика
Turtlrs
18.12.2021 03:04
Программирование на паскале. честно, не понимаю как это делать, вообще паскаль не знаю, но надо сдать саше понравились олимпиады по , поэтому он решил ходить на занятия...
Isei
05.12.2021 02:04
Много ! как сделать лесенку из алфавита в pascal abc a ab abc по принципу var i: byte; j: char; begin...
EfremovMk
04.09.2022 19:51
В 128 символьным алфавитом записано сообщение из 28 символов. Вычисли объём сообщения....
nataly54
12.01.2022 10:45
Для работы с вещественными числами в Паскаль используется тип...
18alinochka150
22.03.2021 07:01
Соревнования по плаванью были в самом разгаре, когда стало ясно, что первые четыре места займут мальчики из пятёрки лидеров. их имена: валерий, николай, михаил, игорь,...
AndreiBrazhnikov1
14.02.2020 13:51
Устройство настраивается на одну из программ. проанализируйте и вставьте пропуски: 1 2 урок. 5 10 11 0 д не могу п д ? осень. 72 45 645 24 2000 не могу д д т д ?...
nikitafonarik05
22.03.2021 16:09
Как составить условие во дворе 6 гусят, что на 2 больше чем цыплят...
beeilne434gmailcom
22.03.2021 16:09
Впервом сосуде температура воды 10 градусов во втором таком же сосуде температура воды 20 градусов из какого сосуда вода испарится быстрее...
Il123456
22.03.2021 16:09
Запиши четырехзначное число кратное 487 и оканчивающиеся на 2...
тикон3
22.03.2021 16:09
Главные герои сказки пушкина золотая рыбка...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=Arr(-23,15,32,0,-56,87,7); a.Println;
Writeln('Кол-во элементов, больших нуля: ',a.Where(t->t>0).Count)
end.
Результат
-23 15 32 0 -56 87 7
Кол-во элементов, больших нуля: 4