Question

С клавиатуры последовательно вводятся 15 разных целых чисел, которые размещаются в массиве. Напишите программу, которая выводит на экран количество элементов массива кратных 5 и минимальное среди подходящих под это условие.

Answer 1

Const n = 15;
var a:array[1..n]of integer;
i,m,min5:integer;
f:boolean;
begin
  for i:=1 to n do begin
    write('Введите ',i,' член массива ');
    readln(a[i]);
    if a[i] mod 5=0 then begin
      m:=m+1;
      if not f then begin
        min5:=a[i];
        f:= not f;
      end;
      if (f) and (a[i]<min5) then min5:=a[i];
    end;
  end;
  writeln('Кратных 5: ',m:3,' Минимальный: ',min5:4);
end.

Тестовое решение
Введите 1 член массива 13
Введите 2 член массива 10
Введите 3 член массива 15
Введите 4 член массива 5
Введите 5 член массива 25
Введите 6 член массива 23
Введите 7 член массива 12
Введите 8 член массива 32
Введите 9 член массива 11
Введите 10 член массива 21
Введите 11 член массива 43
Введите 12 член массива 15
Введите 13 член массива 25
Введите 14 член массива 13
Введите 15 член массива 14
Кратных 5:  6    Минимальный:  5

Answer 2

Для решения этой задачи, вы можете воспользоваться следующей программой на Python:

pythonCopy code
# Создаем пустой список для хранения введенных чисел
numbers = []

# Вводим 15 разных целых чисел
for i in range(15):
    while True:
        try:
            num = int(input(f"Введите {i+1}-е число: "))
            if num not in numbers:
                numbers.append(num)
                break
            else:
                print("Число уже введено, попробуйте еще раз.")
        except ValueError:
            print("Некорректный ввод. Пожалуйста, введите целое число.")

# Инициализируем переменные для подсчета чисел, кратных 5
count_multiples_of_5 = 0
min_multiple_of_5 = None

# Перебираем элементы массива
for num in numbers:
    if num % 5 == 0:
        count_multiples_of_5 += 1
        if min_multiple_of_5 is None or num < min_multiple_of_5:
            min_multiple_of_5 = num

# Выводим результаты
print(f"Количество элементов, кратных 5: {count_multiples_of_5}")
if min_multiple_of_5 is not None:
    print(f"Минимальное число, кратное 5: {min_multiple_of_5}")
else:
    print("В массиве нет элементов, кратных 5.")

Эта программа сначала запрашивает у пользователя ввод 15 разных целых чисел и сохраняет их в массиве. Затем она перебирает элементы массива, подсчитывает количество элементов, кратных 5, и находит минимальное число, соответствующее этому условию. Результаты выводятся на экран.