Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Вывести среднее арифметическое положительных чисел с 2 десятичными знаками Вывести среднее арифметическое положительных чисел с 2 десятичными знаками. В случае отсутствия положительных чисел вывести сообщение " Not Found " (без кавычек) https://www.cyberforum.ru/ pascalabc/ thread1672712.html	Вычислить значение функции Pascal ABC M=(A3+B2+C)(sin(A3+B2+C)/cos(A3+B2+C) - arcsin(1/\|A\|)). Решить с помощью функций. Заранее спасибо
Pascal ABC Определить сумму элементов главной диагонали матрицы https://www.cyberforum.ru/ pascalabc/ thread1672405.html В массиве C(1:4, 1:4) элементы первой строки поставить на место соответствующих элементов главной диагонали и определить сумму элементов главной диагонали. Заранее спасибо.	Pascal ABC Определить значение наименьшего элемента седьмого столбца матрицы Определить значение наименьшего элемента седьмого столбца матрицы B(1:3,1:7). - Pascal ABC. Буду весьма признателен. https://www.cyberforum.ru/ pascalabc/ thread1672402.html
Pascal ABC административная реформа административная реформа Имя входного файла: reform.in Имя выходного файла: reform.out Ограничение времени: 300 мс Ограничение памяти: 256 M В Ужляндии решили провести административно-территориальную реформу. Как известно, в Ужляндии есть N городов, расположенных вдоль длинной прямой дороги, и-е город расположен на расстоянии Xi (0 ≤ X1 <X2 <... <XN ≤ 109) километров от начала...	Pascal ABC Вывести матрицу и вычислить сумму элементов,расположенных не выше побочной диагонали Здравствуйте,нужна помощь.Задача.Дано целое число k. Создать квадратную матрицу порядка n следующего вида(звездочкой отмечены случайные числа): k k k * k k * * k * * * * * * * Вычислить сумму элементов, лежащих не выше побочной диагонали. program matrix; const n = 4; https://www.cyberforum.ru/ pascalabc/ thread1672330.html
Pascal ABC Написать программу для формирования и печати одномерного массива Сформированный массив перед выводом на экран упорядочить: если номер варианта четный - расположить элементы по убыванию, если номер варианта нечетный -по возрастанию: Дан массив А(n ), nЈ 12, целого типа. Получить вектор М, расположив в нем вначале все четные элементы массива А, затем - все нечетные. Порядок следования друг за другом положительных элементов не менять, то же - для отрицательных https://www.cyberforum.ru/ pascalabc/ thread1672316.html	Pascal ABC Вычисление функции, заданной в виде суммы бесконечного ряда Вычисление функции, заданной в виде суммы бесконечного ряда, необходимо выполнить тремя способами: с заданной погрешностью EPS (F1(x)), с заданным числом K первых членов ряда (F2(x)) и по аналитической формуле (F(x)). Ряд: \pm \frac{\pi }{2}+\sum_{n=0}^\infty (-1)^{n+1}\,\frac{x^{2n+1}}{2n+1}=\frac{\pi }{2}-\left(x-\frac{x^3}{3}+\frac{x^5}{5}-\frac{x^7}{7}+... \right) Область...
Pascal ABC Найдите произведение чисел в 3-й системе счисления Даны два натуральных числа, содержащих до 50 разрядов. Используя операции сложения, вычитания, умножения и деления с большими числами, найдите произведение чисел в 3-й системе счисления; https://www.cyberforum.ru/ pascalabc/ thread1672004.html	Pascal ABC Составление числа из цифр другого числа https://www.cyberforum.ru/ pascalabc/ thread1672003.html Дано натуральное число, содержащее до 50 разрядов. Составить из этого числа наибольшее число, которое делится на 2. Если такое число составить невозможно, то выведите NO.
Ознакомление с возможностями организации файлов на внешних носителях в используемой ЭВМ Pascal ABC Задание. Ознакомление с возможностями организации файлов на внешних носителях в используемой ЭВМ. 1. Получение практических навыков работы с внешними файлами. Постановка задачи Подготовить данные об абитуриентах, поступающих в техникум. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля: 1. Фамилия, имя, отчество. 2. Год рождения. 3. Год окончания школы....	Pascal ABC Произвести отделение корней Надо произвести отделение корней на интервале (0.1;5.0), уточнить их значение до Е=5*10^-6 методами половинного деления, простой итерации, касательных и секущих. sin(x)=ln^2(x) Помогите пожалуйста! https://www.cyberforum.ru/ pascalabc/ thread1671462.html

Peoples

1624 / 954 / 782

Регистрация: 06.02.2016

Сообщений: 2,452

Записей в блоге: 31

28.02.2016, 21:01

Найти среднее арифметическое компонент массива, удалив самый большой и самый маленький элементы - Pascal ABC - Ответ 8814043

28.02.2016, 21:01. Показов 721. Ответов 6

Метки (Все метки)

Ответ

Pascal

program pr;
var
a:array [1..100] of integer;            // размер ставь какой хочешь 
i,n,min,max,sum:integer;
avg:double;
begin
writeln('Введите размер массива');
readln(n);
for i:=1 to n do
begin
a[i]:=-10+random(21);       // так же и заполняй массив какими хочешь числами (диапазон)
write(a[i]:3);
end;
min:=a[1];
max:=a[1];
for i:=2 to n do 
if a[i]>max then
begin
max:=a[i];
end;
if a[i]<min then
begin
min:=a[i];
end;
writeln;
for i:=1 to n do
begin
sum:=sum+a[i];
avg:=(sum-min-max)/(n-2);
end;
writeln;
writeln('Среднее арифметическое компонентов массива без учёта максимального и минимального: ',avg);
end.

Вернуться к обсуждению:
Найти среднее арифметическое компонент массива, удалив самый большой и самый маленький элементы Pascal ABC

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

28.02.2016, 21:01

Готовые ответы и решения:

Поменять местами самый первый элемент массива и самый большой
Вводится какой-нибудь массив, поменять местами самый первый элемент массива и самый большой

Включить в программу функцию, возвращающую true, если самый высокий ученик имеет и самый большой все, и fal
Включить в программу функцию, возвращающую true, если самый высокий ученик имеет и самый большой...

Найти порядковый номер и самый большой элемент массива В
Кто сможет решит ?! Пожалуйста! 1 - задача Массив: В(50) Найти порядковый номер и самый большой...

В одномерном массиве найти самый большой элемент и заменить им все нулевые элементы.
В одномерном массиве найти самый большой элемент и заменить им все нулевые элементы.

	28.02.2016, 21:01

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

28.02.2016, 21:01

Помогаю со студенческими работами здесь

В векторе найти самый маленький элемент, встречающийся максимальное число раз.
1. Составить главную программу и функцию. В функции в векторе А(М) найти самый маленький элемент,...

В двумерном массиве найти самый длинный и самый короткий элемент
В двумерном массиве найти самый длинный и самый короткий элемент

Найти самый большой проходной балл у студентов
Доброго времени суток!прошу вас пожалуйста помочь с решением двух задач по Pascal`у условие задач...

Найти треугольник, у которого самый большой радиус описанной окружности
помогите решить в паскале n треугольников заданы длинами своих сторон. Найти треугольник, у...

Наверх