Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Annakuznetsova2006
19.04.2022 13:04 •
Информатика
Вмассиве 8 элементов напишите программу которая находит сумму положительнух чмсел и кол во чисел =0
Показать ответ
Ответ:
alina200530
07.10.2020 10:07
// PascalABC.NET 3.3, сборка 1590 от 03.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
Пример
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1
0,0
(0 оценок)
Популярные вопросы: Информатика
donaldavis1337
10.04.2022 13:42
Дана строка вывести позиции на которых находятся пробелы в этой строке...
podgornovakatu
14.09.2020 06:45
2. В ячейках электронной таблицы записаны значения: A1=1, A2=4, B1=2 и B2=3. Какое число получится при вычислении по формулам а) б) =(A1+A2)/(B1+B2)...
Gfgjlol
26.03.2022 13:42
Решите на pascale через integer. на до возвести 2 в степень. например 2 в 5 =32 например 2 в 3=8...
милан64488
29.03.2020 17:29
Составьте программу вычисления количества двузначных чисел, которые кратны 2 и 3(одновременно) например 24, 60 и т.д.(т.е.остаток от деления этих чисел и на 2 и на 3 равен...
soplador
29.03.2020 17:29
Сообщение является информативным для человека,если оно обладает такими характеристиками, как и понятность (7 букв)...
doriii72
29.03.2020 17:29
Народ надо! напишите программу на языке pascal. дано натуральное число n. получить число k из числа n, поменяв порядок цифр исходного числа на противоположный....
Ekaterina152005
29.03.2020 17:29
Надо учитель на уроке рассказывает о гибели динозавров к какому виду моделей можно отнести его рассказ...
Светлая26
01.01.2021 23:06
Составьте программу, которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 0 до 10 и находит сумму минимального и максимального элементов массива....
Alexgk13
16.06.2020 01:56
1.установить курсор перед ошибочным символом. 2.нажать клавишу del. 3.нажать клавишу с верным символом....
rokivich
28.08.2020 13:19
Определите значение переменной s после выполнения следующего фрагмента программы: s: =0; i: =7; while i 1 do begin s: = s + i div 2; i: = i - 1; end;...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(8,-9,9); a.Println;
Writeln('Сумма положительных ',a.Where(t->t>0).Sum);
Writeln('Количество нулей ',a.Where(t->t=0).Count)
end.
Пример
2 6 -6 7 0 2 3 6
Сумма положительных 26
Количество нулей 1