Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
otoshol62
22.03.2022 19:20 •
Информатика
Составить алгоритм и программу. -23 ; 15 ; 32 ; 0 ; -56 ; 87 ; 7 - массивы. посчитать кол-во элементов массива ,которые больше нуля
Ответ:
tema10112009
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 оценок)
Ответ:
TEMA3232
07.10.2020 06:28
Вот нужная программа. Суда прямо и вводи: -23 15 32 0 -56 87 7, только не вставь лишних пробелов
0,0
(0 оценок)
Популярные вопросы: Информатика
hihilaim
08.04.2023 23:02
На диске d необходимо выполнить следующую последовательность действий: , создать каталог мин, открыть каталог мин, создать каталог 1, открыть каталог 1, создать каталог 11,...
oliver9999
27.11.2022 06:46
Решить на php. даны два ненулевых числа. найти их сумму разность произведение и частное php...
Боббоянн
19.12.2022 00:04
По какой причине в школах на информатике такой устаревшей язык программирования, как pascal abc, почему не python, например?...
MrKreol
04.05.2020 08:28
Пример аналоговой формы представления информации...
kabekesov99
21.01.2022 00:39
Доклад на тему : роль информационных технологий в изучении внеземных цивилизаций...
Andriy1208
08.12.2020 23:31
Вшкольном первенстве по настольному теннису в четверку лучших вошли девушки: наташа, маша, люда и рита. самые горячие болельщики высказали свои предположения о распределении...
evgen22regiooon
08.10.2020 13:48
По восприятия человек различает следующие виды информации...
darkhanio
16.03.2023 19:27
Почему при работе за компьютером необходимо соблюдать правила техники безопаснисти?...
pudovkina3
14.08.2020 14:28
Переведите 1048 в двоичную систему счисления...
valiullina12601
28.10.2022 09:58
Укажите через запятую в порядке возрастания все основания систем счисления, в которых запись числа 15 оканчивается на 3...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
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