Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
вика3855
16.11.2022 08:51 •
Информатика
Дан массив p[12],заполненный с клавиатуры. все элементы кратные 3 и удовлетворяющие условию, -10≤p[i]≤15 заменить на нуль.
Показать ответ
Ответ:
alesa12102006
30.07.2020 17:51
Program asd; const n=12;
Var k,i:integer; p:array[1..n] of integer;
Begin k:=0;
For i:=1to n do
read (p[i]);
For i:=1 to n do begin
If (p[i] mod 3=0) and (p[i]>=-10) and (p[i]<=15) then p[i]:=0;
write(p[i]);end;
End.
0,0
(0 оценок)
Популярные вопросы: Информатика
246691
20.01.2021 11:47
Какой (ие) датчик(и) необходим (ы) роботу для участия в соревнованиях робо-сумо? Напишите конкретно для чего именно необходимы эти датчики вданном соревновании?В чем...
lag228
15.09.2020 05:49
методом половинного деления в последовательности чисел 061 087 154 180 208 230 290 345 367 389 456 478 523 567 590 612 требуется найти число 590. опишите процесс поиска...
Lagunahey
07.05.2020 00:51
Известно, что основными признаками технологии является процессуальность, возможность представления в виде совокупности методов, изменяющих состояние объекта, направленность...
Валерия3445
29.06.2021 14:52
Опишите алгоритм лепки снеговика в виде блок-схемы !...
mzachinyaeva
10.07.2021 00:48
Написать программу вывода матрицы в виде таблицы с разделением столбцов. (например, использовать символы «-» и «|»). внимание! программа написана, но надо переделать,...
TheLaikerMap
10.07.2021 00:48
Спо информатике вычислить произведение a=2*4*6*8*10 используя операторы while и repeat...
gaiciuknataliaozve2o
10.07.2021 00:48
Составить программу для вычисления среднего арифметического из 10 чисел массива....
amink1a
01.04.2022 19:34
Краткий пересказ текста as soon as we were old enough to go to school, we walked there by ourselves. we were lucky since the school wasn t far from our house. some children...
vikulyaKuzmina
01.04.2022 19:34
89.какому условию должна удовлетворять точка с,чтобы лежать на прямой ав?...
serjo1216
01.04.2022 19:34
Сочинение на тему: прекрасным может быть любой уголок природы в любое время года в любой местности...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Var k,i:integer; p:array[1..n] of integer;
Begin k:=0;
For i:=1to n do
read (p[i]);
For i:=1 to n do begin
If (p[i] mod 3=0) and (p[i]>=-10) and (p[i]<=15) then p[i]:=0;
write(p[i]);end;
End.