В одномерном массиве А , состоящий из N действительных элементов , вычислить :
a ) сумму отрицательных элементов массива ;
b ) количество элементов , удовлетворяющих условию 7 Pascal

что именно?

запускаешь программу и ничего не происходит

изменил. забыл вывод счётчика.

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

я же в ответ кинул скрин

const n=10;var a:array[1..n] of real;i,k:integer;s:real;begins:=0; k:=0;for i:=1 to n dobeginreadln(a[i]);if a[i]<0 then s:=s+a[i];if (a[i]<5) and (a[i]>-7) then inc(k);end;writeln(s,' ',k);end.