Решить задачу в Pascal Срочно!!
Дан массив x1,.... x100.
Найти сумму эелементво массива от x1 до Xmin
И рассписать writeln

Не увидел что сумму до минимальльного, сейчас исправлю

Рабочий код:

begin var a:=ArrRandomInteger(readinteger('Введите размер массива:'),-20,50); a.Println; var s:integer;var (b,c):=a.SplitAt(a.indexmin+1);foreach var x in b do s+=x; Println('Сумма:',s); end.\

/ уберите в конце