Напишите код для нахождения количества целых чисел

Int num;
for(int i = 0; i < k; i++) if(arr[i] == int(arr[i]) num++;

num - количество целых чисел
k - количество интераций

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР
  ф1, ф2: РЯД 50 ИЗ ЗНАК;

УКАЗ
  Вывод.Цепь("Введите первую фамилию: ");
  Приём.Строка(ф1);
  Вывод.Цепь("^Введите вторую фамилию: ");
  Приём.Строка(ф2);
  ЕСЛИ ДЛИНА(ф1) > ДЛИНА(ф2) ТО
    Вывод.Цепь('Фамилия "');
    Вывод.Цепь(ф1);
    Вывод.Цепь('" имеет больше символов, чем "');
    Вывод.Цепь(ф2);
    Вывод.Цепь('".')
  АЕСЛИ ДЛИНА(ф1) < ДЛИНА(ф2) ТО
    Вывод.Цепь('Фамилия "');
    Вывод.Цепь(ф2);
    Вывод.Цепь('" имеет больше символов, чем "');
    Вывод.Цепь(ф1);
    Вывод.Цепь('".')
  ИНАЧЕ
    Вывод.Цепь("Фамилии одинаковой длины.")
  КОН

КОН Задание.

название системы счисления                                используемые числа

унарная                                                                   1

двоичная                                                                 0, 1

троичная                                                                  0, 1, 2

четверичная                                                            0, 1, 2, 3

пятеричная                                                              0, 1, 2, 3, 4

шестеричная                                                           0, 1, 2, 3, 4, 5

в компьютере используют еще

восьмеричную                                                         0, 1, 2, 3, 4, 5, 6,7

шестнадцатеричную                         0, 1, 2, 3, 4, 5, 6, 7,8, 9 и буквы

                                                         A(10), B(11), C(12), D(13), E(14), F(15)