Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Кошка200511
01.03.2020 15:42 •
Информатика
Дан массив из 10 целых чисел от -20 до 20.написать программу,которая определяет количество четных чисел,делящихся на 3 решить,паскаль,9 класс
Показать ответ
Ответ:
Atiko88
26.06.2020 17:21
Const n=10; minr=-20; maxr=20;
var a:array[1..n] of integer; i,k:integer;
begin
for i:=1 to n do begin a[i]:=random(maxr-minr+1)+minr; write(a[i],' ') end;
writeln;
k:=0;
for i:=1 to n do if (a[i]<>0) and (a[i] mod 6=0) then k:=k+1;
write(k)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
idiotizROSSII
25.08.2022 16:01
Составить программу для паскаля даны три стороны треугольника, определить является ли такой треугольник равнобедренным, равносторонним или произвольным...
azhiltsova15ozb142
26.06.2021 17:46
Создать тест по информатике в googl форме...
danil7531
24.01.2023 04:10
Пользователь вводит последовательность положительных и отрицательных чисел ,признак окончания 0.определить сколько раз в этой последовательности меняется знак.на языке питон.желательно...
Alik2017
10.10.2020 15:52
Уяку клітинку було введено формулу =в1+а2, якщо після копіювання в клітинку f5 вона набула вигляду =d2+c3...
Brainsetup
18.07.2022 10:20
ОТ ОТВЕТЬТЕ ПРАВИЛЬНО...
ЛалKа228
16.03.2021 19:35
У человека уникальный мозг. Он запоминать огромные объемы информации… жаль что мы этого не делаем. Рональд решил, что простые пароли это не для него. Он изобрел функцию, которая...
Facebook1898909
22.06.2020 18:24
В этой картинке есть и шифр, и ключ для расшифровки... >...
морол
26.10.2020 03:31
Постройте отрицательные высказывания и выясните истинность а) Число 3 является делимым числа 545 б) Автомобиль не имеет права ехать на красный свет в) Существует параллелограмм...
мила285
29.03.2022 01:51
Подбери к данным словам однокоренные имена существительных. храбрый- дневной- солнечный- вечерний- весенний- холодный-...
КристинаCадовски
29.03.2022 01:51
Михаил тверской в борьбе с московским князем заключил договор с 1)казимиром 2)тимуром 3)едигеем 4)ахматом...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var a:array[1..n] of integer; i,k:integer;
begin
for i:=1 to n do begin a[i]:=random(maxr-minr+1)+minr; write(a[i],' ') end;
writeln;
k:=0;
for i:=1 to n do if (a[i]<>0) and (a[i] mod 6=0) then k:=k+1;
write(k)
end.