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

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.

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

Comments

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

---

Рабочий код:

---

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.\

---

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