Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
VKaurovau
28.05.2022 02:42 •
Информатика
Написать программу для определения сколько раз число 10 встречается среди элементов одномерного массива. (10,9.6,7,10,2,4,6,7,10,11,22,33)
Показать ответ
Ответ:
linovanex
07.10.2020 14:06
//Pascal
var
i, Count: byte;
a: array [1 .. 12] of real = (10,9.6,7,10,2,4,6,7,10,11,22,33);
begin
for i := 1 to 12 do
if A[i] = 10 then Count := Count + 1;
writeln('Количество чисел 10 в массиве = ', Count);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
edinorogik5
01.10.2022 08:41
2) вводится четырехзначное число с клавиатуры. определить цифру тысяч, сотен, десятков и единиц. в окне вывода должно быть так (это пример) введи четырехзначное число: 1234...
Nastromanova
31.05.2023 13:35
Софи, не помня себя от страха, всё-таки смогла высунуть голову в отверстие, которое образовалось прямо под рукой великана, и огляделась вокруг. Она увидела, как мимо неё...
ЮкиТеру
14.04.2022 06:10
Python До ть, Будь ласка, ів! 1. Користувач вводить з клавіатури число N. Програма виводить на екран три числа: 1) суму усіх чисел на проміжку від 1 до N; 2) добуток усіх...
magdigadjiev
11.04.2021 00:04
Написать программу для решение задания Егэ-14(Желательно на паскаль) Пример: 4^2015+2^6048-2^2017-150...
49583
01.05.2023 04:17
Нужна ! по сделать гидролиз с : kno3,agno3,k3po4,znci2...
DellXT
01.05.2023 04:17
Состав те диалог на одну из тем: на перемене ,на прогулке ,на спортплощадке ,на уроках физкультуры,употребляя слова и выражения,характерные для разговорного стиля речи...
maklakovatattu
01.05.2023 04:17
Как ты понимаешь выражение гражданин отечества достойнй сын?...
romankomarov1
07.05.2022 07:13
Укажите правильное объяснение праврписание глагола в следующем предложении в небе светятся звезды...
Rukisha03
07.05.2022 07:13
Составить уравнение реакции к схеме: al2s3 - al(oh)3 - al2o3 - al(no3)3. назвать все вещества, указать типы реакций....
олеся788
07.05.2022 07:13
Надо написать сочинение на тему: какого человека можно назвать настоящим путешественником.заранее ....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var
i, Count: byte;
a: array [1 .. 12] of real = (10,9.6,7,10,2,4,6,7,10,11,22,33);
begin
for i := 1 to 12 do
if A[i] = 10 then Count := Count + 1;
writeln('Количество чисел 10 в массиве = ', Count);
end.