помогите с школотской задачькой)
 

помогите друг попросил решить тупую школьную задачку а я как лох 2 час сижу немогу зделать....помогите не пойму в чем ошибка

задача состоит в том что есть масив в котором нужно найти суму елементов <5 и которые при этом делятся на 4 без остачи...вроди все написало а выкидывает ошибку operand type do not match


program 4334;
var C:array [1..20] of real;
g,i:integer;L:real;
begin
L:=0;
g:=0;
for i:=1 to 20 do
begin
Writeln ('element ',i,'=');
readln (C[i]);
end;
for i:=1 to 20 do
if C[i]<5 and (C[i])mod(4)=0 then
begin
L:=L+C[i];
g:=g+1;
end;
writeln ('suma=',L);
writeln ('kilkist=',g);
end.

вродиб все верно...предполагаю что это чтото с мод так как без этого она работает верно..но как записать ее чтобы работала не приложу ума...+2 сутки не сплю...башка как ведро

кто поможет +++++++++++++++++++++++++++

на какой строке ошибка?

if C[i]<5 and (C[i])mod(4)=0 then

Во-первых: оператор mod не может быть применен к переменным типа real :
Во вторых: не правильно записано условие с оператором and :

спасибо большое...разобрался...ох уэ этот паскаль)

ребят, как бывший учитель информатики вам заявляю, что
не правильно, ибо не оптимизировано, а правильно
ЗЫ Это стандартный прикол

хыхы, прикол харош :)

обрати внимание, что числа идут от 1 до 20. если я всё правильно понял (:

Idainet, да, ты прав. Ну уж извиняй, сагрился на свою практику.

Мне твой вариант больше нравится :) , но к моему сожалению, это количество элементов в массиве