Помогите бедным студентам сделать контрольную

[rооt]

...
3)написать программу для нахождения суммы отрицательных элементов массива AD, содержащего 40 элементов.

Получилось что-то вроде такого:

list=Array.new(40).map{|item| item=rand(50)%8-2}.sort!
sum=0    
list.each do |var|
     break unless var < 0
     sum += var
     print "+(#{var})"
end
puts "= #{sum}" 

Вот помог, Вам осталось только конвертировать на нужный вам язык.
P.S. Паскаль не помню... :-/

[Lerer]

3)написать программу на языке pascal для нахождения суммы отрицательных элементов массива AD, содержащего 40 элементов.
заранее огромное человеческое спасибо)

для BP 7.0

uses crt;
var AD:array[1..40] of integer;
i:byte;
s:integer;
begin
{ввод эл-тов массива}
for i:=1 to 40 do read(AD[i]);
s:=0;
{вычисление суммы}
for i:=1 to 40 do
if AD[i]<0 then s:=s+AD[i];
write('s=',s);
end.

И все-таки советую учить предмет. Нельзя во всем спрятаться за чужой спиной..

[Яр]

Получилось что-то вроде такого:

list=Array.new(40).map{|item| item=rand(50)%8-2}.sort!
sum=0    
list.each do |var|
     break unless var < 0
     sum += var
     print "+(#{var})"
end
puts "= #{sum}" 

Вот помог, Вам осталось только конвертировать на нужный вам язык.
P.S. Паскаль не помню... :-/

Тогда уже

sum = list.select{|x| x<0}.inject{|acc, x| acc+x}

А на хаскеле вообще красотень .

Prelude> sum.filter(<0) $ [-20..19]
-210

[rооt]

Тогда уже

sum = list.select{|x| x<0}.inject{|acc, x| acc+x}

а я с итератором написал хотел получить ответ ввида

+(-n)+...+(-n+1) = sum

p.s. жаль latex'а нет

[Яр]

rооt, Ага. А вот ещё можно и так извратиться:

sum = eval( '(%s)' % list.select{|x|x<0}.join(')+(') )

А строка внутри eval-a как раз будет такая ((-nk)+...+(-nk+m)). Хотя можно и без скобок вовсе. Но eval -- это в любом случае опасно

[rооt]

rооt, Ага. А вот ещё можно и так извратиться:

sum = eval( '(%s)' % list.select{|x|x<0}.join(')+(') )

А строка внутри eval-a как раз будет такая ((-nk)+...+(-nk+m)). Хотя можно и без скобок вовсе. Но eval -- это в любом случае опасно

[SeM13]

А вот решение на шарпе с использованием linq. Коротко и красиво

int sum = array.Where(s => s < 0).Sum();

[Brunosss]

Кто у тебя преподователь???