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

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

03.03.2017, 00:00. Просмотров 126. Ответов 1
Метки нет (Все метки)

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

Добавлено через 49 секунд
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
35
36
37
38
39
program pr1;
var
a:array[0..10]of integer;
i,s,k,max,min,N:integer;
sr:real;
begin
write('Введите N=');
readln(N);
for
i:=1 to n do
begin
write('x[',i,']=');
readln(A[i]);
end;
s:=0;
min:=a[1];
max:=a[1];
for i:=1 to N do
begin
if(a[i]<min) then
begin
min:=A[i];
end;
if(a[i]>max) then
begin
max:=a[i];
end;
end;
k:=0;
s:=0;
For i:=1 to n do
if(i mod 2<>0)then
begin
s:=s+A[i];
if (a[i]<a[min])and(a[i]>a[min])then min:=a[i];
if (a[i]<a[max])and(a[i]>a[max])then max:=a[i];
end;
sr:=s/k;
end.
Вот что у меня получилось, только ничего не работает
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.03.2017, 00:00
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить среднее значение элементов массива, отбросив предварительно минимальный и максимальный элементы (Pascal ABC):

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

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

Найти максимальный и минимальный элементы массива и позиции этих элементов.
несколько задач... 1 задан одномерный массив из 10 целых элементов заданного...

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

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

Определить среднее значение элементов массива
Задан двумерный массив размером 3х4. Определить среднее значение элементов...

1
Hitoku
Модератор
1695 / 1294 / 1398
Регистрация: 28.10.2016
Сообщений: 4,235
Завершенные тесты: 4
03.03.2017, 00:24 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
a:array [1..100] of integer;
min,max,n,i:integer;
sr:real;
begin
  randomize;
  write('Укажите количество элементов: '); readln(n);
  min:=50; max:=0;
  writeln('Массив:');
  for i:=1 to n do begin
    a[i]:=random(51);
    if a[i]>max then max:=a[i] else
      if a[i]<min then min:=a[i];
    write(a[i],' ');
  end;
  for i:=1 to n do
    if (a[i]<>min) or (a[i]<>max) then sr:=sr+a[i];
  writeln;
  writeln('Среднее значение (без min и max) = ',sr/(n-2):0:2);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.03.2017, 00:24
Привет! Вот еще темы с решениями:

Определить среднее значение элементов массива
Определить среднее значение элементов массива.Найти далее идекс элемента...

Определить среднее значение элементов массива
Юзая форум нашёл интересненькую программу. Определить среднее значение...

Определить среднее значение элементов массива
Составить программу для решения задач: Определить среднее значение элементов...

Определить среднее арифметическое значение элементов массива
N=12 Определить среднее арифметическое значение элементов массива помогите...


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

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

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