помогите пожалуйста

Начислить сумму квадратов всех элементов заданного массива А (N), за исключением кратных пяти.

хотелось бы полностью проект почитать, т.к. я туговат в этом языке...
а есть полное содержание PAS файла?

срочно нужно, вапще горит...

s:=0;
for i:=1 to n do
 if x[i] mod 5 <> 0 then
   s:=s+x[i];

если x - вещественное,мы делали так

if trunc(x[i]) mod 5 <> 0 ...

а вообще надо читать FAQ пользоваться поиском по форуму <_<

ззы тут просто сумма, надеюсь с квадратами сам разберешся ? ?

klem4,
Можно еще компактнее:

s:=0;
for i:=1 to n do
  inc(s, byte((x[i] mod 5) <> 0)*x[i]);

inc .. опять же только в случает x и s целого типа

зы неоднократно видел
это типа : ?

Ну, не придирайся :no:

s:=0;
for i:=1 to n do
  s := s + byte((trunc(x[i]) mod 5) <> 0)*x[i];

Только не говори, что это не сработает


Не совсем. Это типа:
Если условие ложно, то действие превратится в 0...