операция мод применимо к типу float,проверка числа- целое или дробное

[all_is_fear]

Задача такого типа : В заданной строке выделить(отфильтровать) положительные целые числа и найти их среднее арифметическое. в строке кода if StrToFloat(a[i]) mod 1 =0 then когда хочу проверить целое число или дробное выдает ошибку типа Operator not applicable to this operand type вот код:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
s:string;
a:array[1..100] of string;
b:array[1..100] of integer;
sum:integer;
sred_ar:real;
i,j,k,z:integer;
begin
Writeln('Vvedite stroku:');
readln(s);
k:=1;
j:=1;
for i:=1 to length(s) do
  begin
    if s[i]<>';' then
     begin

        a[k]:=a[k]+s[i];
     end
     else  k:=k+1;
  end;



  z:=1;
   for i:=1 to k do
    begin
     if StrToFloat(a[i]) mod 1 =0  then
       b[z]:=StrToInt(a[i]);
      z:=z+1;
       end;

     for i:=1 to z-1 do
        if b[i]>0 then sum:=sum+b[i];

        sred_ar:=sum/z;

        write(sred_ar);
        readln;
end.

[Serge_Bliznykov]

ну и правильно ругается. Ведь StrToFloat - возвращает какое число? Правильно, вещественное. А для него операция остатка от целочисленного деления НЕ ОПРЕДЕЛЕНА!

Если Вы твёрдо уверены, что Вам нужно сделать,
я бы рекомендовал Вам сделать примерно так:

  if Frac(StrToFloat(a[i]))=0  then
      b[z]:=Trunc(StrToFloat(a[i]));
      z:=z+1;
  end;

а ещё лучше (НАМНОГО) написать так:

Var 
......
   tmp, ErrCode : integer;

begin
  .....

  z:=0;
  for i:=1 to k do
    begin
       Val(a[i], tmp, ErrCode );
       if ErrCode=0 then begin  // смотри комментарий ниже
         Inc(z);
         b[z]:=tmp;
       end;
     end;

p.s. тольк у Вас же нужно выделить ПОЛОЖИТЕЛЬНЫЕ целые числа!
поэтому лучше написать:

if (ErrCode=0) and (tmp>=0) then begin

[Mandrivnyk]

по-моему, mod применим только к целым числам.
попробуй ExtMod из библиотеки ESBMaths.
или проверяй на целостность каким-то другим способом, например при помощи округления


Update
опоздал =)

[all_is_fear]

большое спасибо Serge_Bliznykov за исчерпывающие объяснения, все получилось...

Mandrivnyk попробовал округлить как вы и говорили, что то не получилось, но огромное спс за совет в любом случае