Question

24. В массиве X(1:10) каждый элемент равен 0, 1 или 5 (заполнить с клавиатуры). Посчитать количество пятерок.

Answer 1

Var
x:array[1..10] of real;
i,n:integer;
begin
for i:=1 to 10 do begin
writeln('Введите лемент №',i);
readln(x[i]);
if x[i]=5 then
 inc(n);
end;
writeln('Всего пятерок ',n);
end.

Answer 2

Для решения этой задачи нужно сначала создать массив X(1:10), а затем подсчитать количество пятерок в нем. В зависимости от того, на каком языке программирования вы работаете, синтаксис может немного отличаться. Я предоставлю пример на языке Python:

pythonCopy code
# Создаем массив X с 10 элементами, заполняем его с клавиатуры
X = []
for i in range(10):
    value = int(input(f'Введите значение для X[{i+1}]: '))
    X.append(value)

# Подсчитываем количество пятерок
count_fives = X.count(5)

# Выводим результат
print(f'Количество пятерок в массиве: {count_fives}')

Сначала этот код создает пустой массив X, а затем с помощью цикла for запрашивает у пользователя ввод 10 чисел. Затем с использованием метода count() подсчитывается количество пятерок в массиве.

Если у вас есть предпочтения к другому языку программирования, пожалуйста, уточните это, и я предоставлю соответствующий пример.