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

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

03.03.2017, 00:00. Просмотров 133. Ответов 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
Ответы с готовыми решениями:

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

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

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

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

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

1
Hitoku
Модератор
1702 / 1301 / 1400
Регистрация: 28.10.2016
Сообщений: 4,240
Завершенные тесты: 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

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

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

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


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

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

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