Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
panchenko383895
0 / 0 / 0
Регистрация: 28.02.2016
Сообщений: 6
1

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

28.02.2016, 16:42. Просмотров 319. Ответов 6
Метки нет (Все метки)

Найти среднее арифметическое компонент массива , убрав самый большой и самый маленький элементы
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.02.2016, 16:42
Ответы с готовыми решениями:

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

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

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

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

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

6
Peoples
1377 / 859 / 757
Регистрация: 06.02.2016
Сообщений: 2,275
Записей в блоге: 18
Завершенные тесты: 5
28.02.2016, 21:01 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
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.
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4671 / 3351 / 3975
Регистрация: 05.06.2014
Сообщений: 16,743
28.02.2016, 21:09 3
Цитата Сообщение от panchenko383895 Посмотреть сообщение
самый большой и самый маленький элементы
Что делать, если таких несколько?
0
panchenko383895
0 / 0 / 0
Регистрация: 28.02.2016
Сообщений: 6
29.02.2016, 11:47  [ТС] 4
Не учитовать.

Добавлено через 25 секунд
Не учитовать
0
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4671 / 3351 / 3975
Регистрация: 05.06.2014
Сообщений: 16,743
29.02.2016, 12:00 5
panchenko383895, то есть, первый max и первый min?
1 2 3 4 5
Получаем 2 3 4 -> среднее 3
?
0
panchenko383895
0 / 0 / 0
Регистрация: 28.02.2016
Сообщений: 6
02.03.2016, 00:59  [ТС] 6
ДА..
0
panchenko383895
0 / 0 / 0
Регистрация: 28.02.2016
Сообщений: 6
02.03.2016, 20:08  [ТС] 7
Спасибо большое, если не сложно как сделайте двухмерный масив.

Добавлено через 31 секунду
Peoples, Спасибо большое, если не сложно как сделайте двухмерный масив.
0
02.03.2016, 20:08
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.03.2016, 20:08

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

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

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru