Pascal ABC — как сделать?

Question

[idzphoenix]

Пользователь вводит массив вещественных чисел размер одномерного массива задается константой .
Нужно определить сколько чисел в массиве является нецелыми.

Comments

[BitNeBolt]

Нужно проверять равно ли число из массива целой части от деления этого числа на 1(если равно, то число целое)

Answer 1

[Stockholm Syndrome]

const N = 5; 
var
  i, j, s: Integer; 
  nums: array[1..N] of Real; 
begin
  for i := 1 to N do begin 
    ReadLn(nums[i]);
  end;
  
  s := 0; 
  for j := 1 to N do begin 
    if Frac(nums[j]) <> 0 then begin 
      s := s + 1;
    end;
  end;
  
  WriteLn(s);
end.