mod не принимает

[апрол]

прописываю в программе

if (a[i] mod 5)=0 then

выбивает ошибку вместо мод пишу

/

программа запускается, что делать если мне нужно именно

mod

[Аватар]

a - какого типа? для mod нужен Integer или совместимый

[апрол]

Сообщение от Аватар

a - какого типа? для mod нужен Integer или совместимый

у меня real, поставил Integer теперь в другом месте ошибка, рядком раньше

a[i]:=StrToFloat(StringGrid1.Cells[i,1]);

[Аватар]

у меня real, поставил Integer теперь в другом месте ошибка, рядком раньш

Идей вообще нет почему? Наводка - StrToFloat

[апрол]

У меня есть вот такой рабочий код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    Button1: TButton;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StringGrid1: TStringGrid;
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  A: array of  real; 
    i, N: integer;
    S: real;

implementation

{$R *.dfm}

procedure TForm1.Edit1Change(Sender: TObject);
begin 
   if Edit1.Text = '' then exit;
   n:=StrToInt(Edit1.Text);
   stringgrid1.ColCount:=n;
for i:=0 to n-1 do StringGrid1.Cells[i,0]:=inttostr(i);

SetLength(a,n);
end;

procedure TForm1.Button1Click(Sender: TObject);
Begin
For i:=0 to n-1 do
a[i]:=StrToFloat(StringGrid1.Cells[i,1]);

S:=0;
for  i:=0 to N-1 do if A[i]>0 then S:= S + A[i];
Label1.Caption:= ' S = '+ FloatToStr(S);
end;

end.

программа подсчитавыет суму всех елементов в массиве
длинной N, а мне нужно подсчитать суму елементов массива А, кратных пяти при условии остачи (A(i)/5)=0 делаю условие A[i] mod 5 = 0 выкидывает ошибку

[Аватар]

Сам подумай, какой может быть остаток от деления по модулю пять для дробных чисел? Даже в математике такого нет. Эта операция применима только для целых чисел. Даже если в массиве a целые числа, это ничего не меняет - описан то он как real

[VIK_aka_TOR]

как вариант конечно можно

if (round(a[i]) mod 5)=0 then 
//или 
if (trunc(a[i]) mod 5)=0 then

но все же лучше разберитесь со своими типа данных и заданием, ибо то что приведено лишь "костыль" для вашего кода

[апрол]

Всем спасибо, проблему решил