Программу в паскале.Условие найти сумму макс и мин элементов массива состоящего из 10 целых чисел значение которых вводиться с клавиатуры.

Предыдущий
вопрос Следующий
вопрос

program FindSumMinMax;

var
numbers: array[1..10] of Integer;
i, max, min, sum: Integer;

begin
max := -1000;
min := 1000;
sum := 0;

writeln('Введите 10 целых чисел:');
for i := 1 to 10 do
begin
write('Число ', i, ': ');
readln(numbers[i]);

end;

sum := max + min;

writeln('Максимальное число: ', max);
writeln('Минимальное число: ', min);
writeln('Сумма максимального и минимального числа: ', sum);

end.