Одномерный массив Опции

[sergey-ru]

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

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

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

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


Сообщение отредактировано: sergey-ru - 19.05.2005 14:04

[klem4]

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 - 19.05.2005 13:24

[volvo]

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

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

[klem4]

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

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

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

зы неоднократно видел

byte((x[i] mod 5) <> 0)*x[i]))

это типа :

Код

byte((<условие>)<если TRUE действие>)

?

[volvo]

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

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

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

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

это типа :

Код

byte((<условие>)<если TRUE действие>)

?

Не совсем. Это типа:

Код

byte((<условие>)<действие>)

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