Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
leradolgolenko
27.02.2021 06:52 •
Информатика
Сформировать массив из 10 произвольных чисел .определить сумму положительных четных элементов этого массива.
Показать ответ
Ответ:
sanek48rus1
08.10.2020 15:27
Var m : array[1..10] of Integer; i,s,p,n : Integer;Begin s:=0; p:=1; n:=0; For i:=1 to 10 do Begin m[i]:=-100+Random(201); Inc(n,Ord(m[i]=0)); If m[i]>0 then s:=s+m[i]; If m[i]<0 then p:=p*m[i]; end; Writeln(s,' ',p,' ',n);end.
0,0
(0 оценок)
Популярные вопросы: Информатика
1pashnett
14.03.2023 20:32
Задача 2: Написать программу, которая выводит на экран символ таблицы ASCII, который соответствует введенному числу Задача 3: Написать программу, которая считывает...
flagvamvruke
04.06.2023 06:35
с информатикой1. Напишите наименьшее число x, для которого ложно высказывание: (x 42) ИЛИ (x не делится на 19)2. Напишите наименьшее число x, для которого истинно...
GiFka34
04.03.2020 03:44
Выберите название и определите сюжет вашего будущего проекта . А так же запишите к нему словесный алгоритм должна сделать за 5 минут...
arave1
09.11.2021 15:46
Является ли условным оператором следующая последовательность символов : if x 13 then y:= x+13 else y:= x-13...
Ника6660
08.06.2021 19:23
. Проверьте, правильно ли составлена таблица истинности. Для этого составьте таблицу истинности для выражения и сравните с решением....
varta
16.07.2020 13:14
1.Какой набор протоколов используется при подключении к сети Интернет?1)TCP/IP2)NetBEUII3)PX/SPXQNX4)Novell92.Как называется число, которое вычисляется по специальному...
Давидка12
28.12.2020 02:51
Встроенные функции. Урок 1 Дана таблица.AВC сDE12 КатегорияЗ ОвощИтого к оплате180 Т3 кгПокупка овощей и фруктовНаименование Цена за 1 кг Весморковь60 т65 Ткартофель80...
petrozavodchic
25.02.2022 03:34
Впаскале решите составьте программу для вычисления значения функции при любом x: y=2+3x/2-4x...
инкндкн
25.02.2022 03:34
Cos^2t- cos^2(п/4-t)=(1/корень2)sin(п/4-2t)...
VanyaKiba
25.02.2022 03:34
Насколько измеряется внутреняя энергия гелия масой 2г при увеличении температуры на 20 градусов с...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота