Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Pon4ik11119999
24.07.2020 02:47 •
Информатика
Массивы дан массив 50 целых чисел. элементы массива могут принимать целочисленные значения от -40 до 40. составьте программу вычисления суммы элеменов, меньших первого элемента.
Показать ответ
Ответ:
Данил2007Г
05.10.2020 18:35
For i := 1 to N do begin
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>40) then
k:=k+1;
end;
writeln(k);
0,0
(0 оценок)
Популярные вопросы: Информатика
Keonaks
08.04.2021 10:36
Дана матрица а (5,5). элементы находящиеся ниже основной диагонали изменить на цифру 0, а выше - на 3. изменить элементы диагонали на 7. паскаль авс программу, ....
Анон5сен
26.10.2021 23:48
Типизированные файлы, pascal 1.ввести с клавиатуры целое число n ( 1). создать файл целых чисел и записать в него n первых положительных четных чисел (2, 4, …). 2.вывести...
kripto123
02.10.2020 00:04
Нужно решить на pascal-е: на вход программы значения элементов двумерного массива а(mxn) (m, n = 20). преобразовать массив, поменяв местами элементы первой строки с...
uvar13131
06.12.2020 11:17
Написать мини доклад об этрусках(народ)...
soom2
06.12.2020 11:17
Какие можно задать вопросы предсказателю будущего. * на яз *...
linaserdyuk13
06.12.2020 11:17
Язык 2 класс впиши сказуемое в каждое предложение . подчеркни грамматическую основу. 1 листья землю. ветер. 3 зайчик __ капусту....
yanabutko1999
06.12.2020 11:17
Формула нахождения количества теплоты q=cm(t2-t1) следуя этой формуле составьте формулы нахождения m, t2 и t1...
natashaleskovets
06.12.2020 11:17
Звукобуквенный разбор слова больному...
иван1155
06.12.2020 11:17
Найдите нок 12 14 42 и нод 168 252 сравните их...
yanaiweey
06.12.2020 11:17
7,8x+9,1y2-x+1,9y2-8,7y2 (двойка в верху над у мвленькая, в квадрате вроде...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
if ((a[i]+a[i+1]) mod 2=0)and((a[i]*a[i+1])>40) then
k:=k+1;
end;
writeln(k);