Question

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

Answer 1

//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)

begin
  var a:=ArrRandomInteger(readinteger('Введите размер массива:'),-20,50);
  a.Println;
var (b,c):=SplitOf(a.indexmin);
  Println('Сумма:',b.sum); 
end.

// Проверьте на работо способность, дополнение писал не на компьютере