Дан массив вещественных чисел, содержащий 25 элементов вычислить сумму элементов массива начиная с первого элемента и максимального элемента массива включительно

program zz1;

const n=25; / / задаем количество чисел в массиве

var i, p:integer; / / задаем переменную целого типа

max, s : real;

x:array [1 ... n] of real;

begin

for i:=1 to n do / / организуем цикл, в котором введем с клавиатуры n заданных чисел в массив

read (x[i]);

for i:=1 to n do

if x[i] > max then begin max:=x[i]; p:=i; end; / / проверяем, если элемент массива больше максимального, то записываем его в максимальный и запоминаем его номер

for i:=1 to p do

s:=s + x[i]; / / находим сумму

write (' полученная сумма = ', s:5:2); / / выводим полученную сумму в формате пять знаков для числа и два знака после запятой

end.