Решить задачу в Pascal Срочно!!
Дан массив x1,.... x100.
Найти сумму эелементво массива от x1 до Xmin
И рассписать writeln
Дан массив x1,.... x100.
Найти сумму эелементво массива от x1 до Xmin
И рассписать writeln
More Questions From This User See All
Answers & Comments
//Версия 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.
// Проверьте на работо способность, дополнение писал не на компьютере
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.\