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

var

min, i, x : integer; / / объявляем переменные целочисленного типа.

arr : array [1 ... 15] of integer; / / объявляем массив.

Begin

writeln ('Введите 15 целых чисел для заполнения массива:'); / / вывод строки на экран.

for i: = 1 to 15 do / / начало цикла.

begin

readln (arr[i]); / / заполняем элемент массива.

if ((arr[i] mod 5 = 0)) then / / если элемент кратный 5.

begin

if (x = 0) then min : = arr[i]; / / первый элемент, кратный 5 считаем минимальным.

if (arr[i] < min) then min : = arr[i]; / / сравниваем текущий элемент с минимумом.

x : = x + 1; / / считаем количество элементов, кратных 5.

end;

end;

writeln ('Количество элементов в массиве, кратных 5 равно: ', x, ', минимальный из них: ', min);

End.