Регистрация
Васелёк05
01.03.2022 15:16
Математика
Есть ответ 👍

Дана последовательность из n различных чисел. найти сумму чисел этой последовательности, расположенных между максимальным и минимальным значениями ( в сумму включить оба этих числа) в visual basic.

168
188
Посмотреть ответы 2

Ответы на вопрос:

Shavelvasilisa
Shavelvasilisa
4,5(99 оценок)
Const n=10; var a: array[1..n]of integer; min,max,i,s: integer;   begin       for i: =1 to n do           read(a[i]); {вводим последовательность через пробел, последний элемент enter}           min: =1; max: =1; {поиск индекса  мин и макс}               for i: =2 to n do                   begin                       if a[i]< a[min]then                           min: =i;                       if a[i]> a[max]then                           max: =i;                   end; {если индекс мин меньше чем индекс макс то} if max> min then     for i: =min to max do         s: =s+a[i] else {если индекс макс меньше чем индекс мин}     for i: =max to min do         s: =s+a[i]; writeln('  s=  ',s); end.
настя7353
настя7353
4,6(55 оценок)
Вообще парусник изобрели первым)

Популярно: Математика