В массиве из 10 целых чисел подсчитать количество элементов меньших, чем среднее арифметическое минимального и максимального элементов.
10-11 класс
|
var a: array[1..10] of integer;
begin k:=0;
for i:=1 to 10 do begin
writeln('Введите 10 чисел'); readln(a);
max:=a[i]; min:=a[i]
for i:=2 to 10 do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i]; end;
s:=(min+max)/2;
for i:=1 to 10 do begin
if a[i]<s then k:=k+1; end;
writeln(k);
end.
Другие вопросы из категории
изображения?
2)
Читайте также
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Подсчитайте количество нулевых элементов в массиве из 10 целых чисел и распечатайте исходный массив в обратном порядке.
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
превышает число 3.