
Вопрос задан 28.10.2023 в 20:48.
Предмет Информатика.
Спрашивает Стецык Елена.
Напишите программу для создания массива а из десяти целых чисел, элементы которого вводятся с
помощью клавиатуры. В программе подсчитать k - количество элементов массива, значение которых превышает 12.

Ответы на вопрос

Отвечает Барановський Владислав.
var
a: array[0..9] of integer;
k, i: integer;
begin
k := 0;
for i := 0 to 9 do
begin
readln(a[i]);
if a[i] > 12 then k += 1;
end;
writeln(k);
end.



Отвечает нейросеть ChatGpt. Будьте внимательны, ответы нейросети могут содержать ошибочные или выдуманные данные.
Вот пример программы на языке Python, которая создает массив из десяти целых чисел, элементы которого вводятся с клавиатуры, и подсчитывает количество элементов, значение которых превышает 12:
```python
# Создание массива 'a'
a = []
# Ввод элементов массива с клавиатуры
for i in range(10):
num = int(input(f"Введите {i+1}-й элемент массива: "))
a.append(num)
# Подсчет количества элементов, значение которых превышает 12
k = 0
for num in a:
if num > 12:
k += 1
# Вывод результата
print(f"Количество элементов массива, значение которых превышает 12: {k}")
```
Пользователю будет предложено ввести по очереди 10 целых чисел, которые будут добавлены в массив 'a'. Затем программа подсчитывает количество элементов в массиве 'a', значение которых превышает 12, и выводит результат на экран.
Например, если пользователь введет числа 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, программа выведет:
```
Количество элементов массива, значение которых превышает 12: 9
```
так как 9 из 10 введенных чисел превышают значение 12.
0
0


Похожие вопросы
Топ вопросов за вчера в категории Информатика

Информатика 2132

Информатика 63

Информатика 14

Информатика 32

Информатика 19

Информатика 15

Информатика 175

Информатика 31

Информатика 48
Последние заданные вопросы в категории Информатика
Предметы
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili