Напишите программу в Паскале: Вводится 15 чисел. Определите сколько среди них целых чисел.

var

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

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

Begin

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

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

begin

readln (arr[i]); / / считываем элемент массива.

if (frac (arr[i]) = 0) then / / если дробная часть числа равно 0.

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

end;

writeln ('Количество целых чисел в массиве: ', x); / / вывод строки на экран.

End.