одномерный числовой массив. представить блок-схему и фрагмент кода программы, для вычисления суммы квадратов отрицательных (Delphi

[Tuns]

1) Дан одномерный числовой массив представить блок-схему и фрагмент кода программы, для вычисления суммы квадратов отрицательных элементов.
2) вычисления суммы элементов лежащих вне отрезка [-5;5]
(вот задание !!)
1)• def factorial(x):
a=1
if x%2==0: #четное число
y = 2
while y <= x:
a = a* y
y = y + 2 #плюс два каждый раз
return a
else:
y = 3 #начинаем с 3, 1 можно опустить
while y <= x:
a = a* y
y = y + 2
return a
print factorial(9)
(проверте пожжжж!!!!!и помогите сделать 2-ю... а то мозг уже бастует...желательно на delphi)!

[p51x]

Если код - это код для вашей первой задаче, то он явно неправильный. Найдите в вашем задании упоменание четности или факториала.
По второй задаче - элементов чего?

[Tuns]

Сообщение от p51x

Если код - это код для вашей первой задаче, то он явно неправильный. Найдите в вашем задании упоменание четности или факториала.
По второй задаче - элементов чего?

вторая задача это доп условие к первой.если не сложно укажите или исправте что не правильно ,пожалуйста !)

[ZX Spectrum-128]

Да все неправильно, это не дельфи

[Tuns]

Сообщение от ZX Spectrum-128

Да все неправильно, это не дельфи

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

[ZX Spectrum-128]

1.

Sum:=0;
For i:=1 to n do
 If a[i]<0 then
  Sum:=sum+sqr(a[i]);

Delphi - это сынишка Паскаля.

[Tuns]

Сообщение от ZX Spectrum-128

1.

Sum:=0;
For i:=1 to n do
 If a[i]<0 then
  Sum:=sum+sqr(a[i]);

Delphi - это сынишка Паскаля.

Спасибо!!!!! .... 2 я понимаю аналогично...?