Выдает ошибку в программе,что не правильно я прописал.

[spectrum988]

Ввести массив F[0..6].Найти сумму элементов введенного массива, кратных числу 3.
Помогите пожалуйсто разобраться не знаю как правильно написать проверку на кратность 3-ем.
Вот код программы:

program vld1;
const
n=6;
var F:array[1..n] of real;
i:integer;
g,c,a,summa:real;
begin
summa:=0;
for i:=1 to n do
  begin
  write('Введите F[',i,']= ');
  readln(F[i]);
  end;
for i:=1 to n do
  begin
if F[i] mod 3=0 then
summa:=summa+F[i];
  end;
  writeln(F[i],summa);
  end;
end.

[Dozent]

ну если остаток от деления на ТРИ равен ноль значит кратен трём в чём проблема?

[spectrum988]

Нашел ошибку,тип массива нужно присвоить integer;

program vld1;
const n=6;
var F:array[1..n] of integer;
i:integer;
summa:real;
begin
summa:=0;
for i:=1 to n do
  begin
  write('Введите F[',i,']= ');
  readln(F[i]);
  end;
for i:=1 to n do
  begin
if F[i] mod 3=0 then
summa:=summa+F[i];
  end;
  writeln('Cумма чисел кратных 3-ем:',summa);
end

.

[Serge_Bliznykov]

Нашел ошибку,тип массива нужно присвоить integer;

отлично! правильно! Молодец!

p.s. тему закрываем?