в массиве на 100 элементов (от -1000 до 1000) найти индексы самого большого и самого маленького элемента, а затем сумму чисел находящихся между ними. (Паскаль)
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var a:=ArrRandom(100); a.Println;
if imax imax:=a[i];
k1:=i;
if imin> a[i] then
imin:=a[i];
k2:=i;
Writeln('Индекс минимального ',imin+1,', максимального ',imax+1);
if imin>imax then Swap(imin,imax);
Writeln('Сумма на участке: ',a[imin:imax+1].Sum)
end.