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

Определить среднее значение его элементов, отбросив предварительно минимальный и максимальный элементы

26.03.2013, 20:35. Просмотров 819. Ответов 1
Метки нет (Все метки)

Дан массив Х(N). Определить среднее значение его элементов, отбросив предварительно минимальный и максимальный элементы. Считать, что такие элементы единственные.
Массив вводить самому, а не рандомом пользоваться.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.03.2013, 20:35
Ответы с готовыми решениями:

Определить среднее значение элементов массива, отбросив предварительно минимальный и максимальный элементы
Дан массив из N чисел. Определить среднее значение его элементов, отбросив предварительно...

Массив: минимальный и максимальный элементы заменить на среднее арифметическое строки
по информатике задали, а я не шарю((

В матрице найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элементы
В матрице размером n на m (1<n, m<10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Определить максимальный и минимальный элементы
Определить максимальный и минимальный элементы среди положительных нечётных элементов...

Определить среднее значение всех элементов, значение которых превышает среднее для массива
в произвольно заданном одномерном массиве определить среднее значение всех элементов, значение...

1
Федя Форточкин
68 / 82 / 33
Регистрация: 09.12.2012
Сообщений: 222
Записей в блоге: 3
26.03.2013, 23:41 #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
34
var
a: array[0..10] of integer;
max,min:integer;
posmax, posmin,i: byte;
sa:real;
begin
for i:=0 to 10 do
read (a[i]);
max:=a[0];
posmax:=0;
min:=a[0];
posmin:=0;
for i:=0 to 10 do
begin
if a[i] > max then
begin
max:=a[i];
posmax:=i;
end;
if a[i] < min then
begin
min:=a[i];
posmin:=i;
end;
end;
a[posmax]:=0;
a[posmin]:=0;
for i:=0 to 10 do
begin
sa:=sa+a[i];
end;
sa:=sa/8;
writeln('ÑðåäГ*ГҐГҐ Г*ðèôìèòè÷åñêîå: ' + FloatToStr(sa));
end.
вместо 10 можешь поставить любое другое кол-во элементов, там где я делил на 8, это кол-во элементов вычесть 2
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.03.2013, 23:41

Найти минимальный и максимальный элементы и их координаты, поменять местами минимальный и максимальный элемент
3) В матрице размером n на m (1&lt;n, m&lt;10) (ввод n, m и матрицы с клавиатуры) найти минимальный и...

Дан Массив размера N. Поменять местами его минимальный и Максимальный элементы.
Помогите пожалуйста:)

Определить максимальный и минимальный элементы матрицы и поменять их местами
2. На матрице А(7,9) определить mах и min элементы, и надо поменять их местами.


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

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

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