Дан массив А с количеством элементов n меньше =10 (элементы вводить с клавиатуры).Найдите сумму элементов этого массива , которые расположены между макс и мин элементами массива. Заранее спасибо)
Дан массив А с количеством элементов n<=10 (элементы вводить с клавиатуры).Найдите сумму элементов этого массива , которые расположены между макс и мин элементами массива. Заранее спасибо)
Гость
Ответ(ы) на вопрос:
Гостьвместо слов тип укажешь real если массив действительных чисел или integer - если целые числа
var a: array[1..10] of тип
i,n:integer; max, min, sum: тип
begin
write('Введите количество элементов массива'); readln(n);
for i:=1 to n do read(a[i]);
max:=a[1]; min:=a[1];
for i:=2 to n do if a[i]>max then max:=a[i];
for i:=2 to n do if a[i]>min then min:=a[i];
sum:=0;
for i:=1 to n do if (a[i]>min) and (a[i]
Не нашли ответ?
Похожие вопросы