Дан массив А с количеством элементов n<=10 (элементы вводить с клавиатуры).Найдите сумму элементов этого массива , которые
5-9 класс
|
расположены между макс и мин элементами массива. Заранее спасибо)
вместо слов тип укажешь 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]<max) then sum:= sum+a[i];
write('Сумма элементов массива расположенных между максимальным и минимальным = ', sum);
end.
в массиве какие числа целые или действительные?
Другие вопросы из категории
предложении. Какое имя можно будет дать отношению, если имена объектов в предложении поменять местами? В каких парах имя отношения при этом не изменится?а) Колобок поет песню Лисе.
б) Конек-Горбунок помогает Ивану.в) Пилюлькин лечит Сиропчика.
г) Страшила путешествует вместе с Элли.
(Даю за ответ 121 бал)
Читайте также
2)Дан массив целых чисел.Найти сумму четных положительных чисел, стоящих на нечетных местах и количество отрицательных элементов, стоящих на четных местах.
3)дан массив целых чисел.найти сумму четных и положительных элементов, расположенных до первого отрицательного элемента.Примечание:при вводе необходимо учесть, что первый элемент не может быть отрицательным.
таких членов.
2.Дан массив из 10 элементов. Найти количество элементов с четными индексами.
3.Дан массив из 10 элементов. Найти наибольший элемент массива.
2. Дан массив целых чисел,найти количество отрицательных элементов массива.
3. Дан массив целых чисел,найти количество чётных чисел в массиве.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
2). Дан массив из n элементов. Написать программу подсчитывающую произведение элементов массива.