tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Вводится последовательность
Вводится последовательность из 10 произвольных чисел.определить сколько раз в последовательности встречается число a
Даниил5702
1 04.06.2019 11:10
2
Ответы
anlevytska
05.07.2020 12:38
Var m:array[1..10] of integer;
a,i,k:integer;
begin
k:=0;
for i:=1 to 10 do
read(m[i]);
readln(a);
for i:=1 to 10 do
if m[i]=a then k+=1;
writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Tumutova2006
24.11.2020 16:53
Задан одномерный массив А. Требуется переписать элементы одномерного массива А кратные 5 в массив В, а если такие отсутствуют, то выдать соответствующее сообщение....
Arina4dyuzhova
24.11.2020 16:55
Дана матрица A (n, k) (n = 20, k = 10). Сформировать матрицу B (n, max) следующим образом: каждая строка матрицы A переписывается в соответствующую (в такую же...
Abdurauf2004
24.11.2020 16:54
Соотнеси разделения смеси с принципами, на котором основан этот выпариваниеотстаиваниефильтрованиенамагничиваниеоснован на одного из компонентов намагничиватьсяоснован...
detsadraduga10
24.11.2020 16:54
1.Що таке діапазон, які виміри він може мати? 2.Що таке блок, чим він відрізняється від діапазону?3.Як виокремити комірку, стовпець, рядок, діапазон, блок?4.Які...
помощь155
24.11.2020 16:54
с контрольной задачей. По заданной логической функции X=(A+¬B)*C+¬A*B¬C построить логическую схему. Найти значение этой функции при А=1, В=0....
Foxer30
24.11.2020 16:54
срочонаписать классы и методы...
10ok
24.11.2020 16:54
Что такое системы управления контентом...
ilona125
24.11.2020 16:54
Дан одномерный массив А размерности N. Найти произведение элементов, расположенных до максимального, и количество после минимального. Нужна блок-схема...
saparhanaruzhan
24.11.2020 16:55
1. Вычислить среднее арифметическое первых N натуральных чисел. (18) 2. Ввести N. Подсчитать = Y=n-n2+n3-n4+n5-n6+n7-n8+n9-n10...
Znv250605
30.11.2020 12:22
Вопросы для размышления 1. Как можно создавать модели в программе SketchUp?2. Каковы функции инструментов управления пространством в про-грaммe SketchUp?3. Для...
Популярные вопросы
Вкаких словах звуков больше, чем букв 1)юнга 2)бурьян 3)вредные...
2
Представте в виде куба одночлена выражение 2xво второй степени...
2
Кчислам 79 999,100 000 запеши предыдущиее и последуйщее числа....
1
При полном окислении 1 г глюкозы с6н12о6 выделяется 17,6 кдж...
2
Токарь за 7 часов работы вытачивает 63 детали, а его ученик...
2
Both government and individuals … from developing trade relations...
3
Найди периметр и площадь квадрата со стороной 10см...
2
Реши за 4 одинаковых альбома заплатили 28 руб. за 3 одинаковых...
2
Как нужно изменить опыт,чтобы проверить,у какого из деревьев(ясеня...
3
Высота треугольника, периметр которого равен 12 см, разделяет...
2
a,i,k:integer;
begin
k:=0;
for i:=1 to 10 do
read(m[i]);
readln(a);
for i:=1 to 10 do
if m[i]=a then k+=1;
writeln(k);
end.