Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/67: Рейтинг темы: голосов - 67, средняя оценка - 4.55
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 14
1

Найти номер элемента массива, наименее отличающегося от среднего арифметического всех прочих

21.01.2014, 14:22. Показов 12759. Ответов 2
Метки нет (Все метки)

Дан целочисленный массив из 30 элементов.Элементы могут принимать любые целые значения Опишите на русском языке или на одном из языков программирования алгоритм, который находит и выводит номер элемента массива , наименее отличающегося от среднего арифметического всех его элементов .
код паскаль
Pascal
1
2
3
4
5
6
7
8
const N=30
var A:array[1..N] of integer;
i,k:integer;
s,min:real;
begin
for i:=1 to N do readln(a[i]);
...
end.
Добавлено через 4 часа 10 минут
кто нибудь помогите
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.01.2014, 14:22
Ответы с готовыми решениями:

Найти в файле числа, меньшие среднего арифметического значения всех чисел массива
Создать файл, содержащий 10 вещественных чисел. Найти числа, меньшие среднего арифметического...

Найдите номер элемента, который отличается от среднего арифметического значения
Дана последовательность х1, х2, …, хn. Найдите номер элемента, который отличается от среднего...

Найти количество элементов массива, больших среднего арифметического всех ее элементов
Нужно найти количество элементов массива, больших среднего арифметического всех ее элементов. Всё...

Найти сумму всех элементов массива, которые меньше среднего арифметического его элементов
Найти сумму всех элементов массива целых чисел, которые меньше среднего арифметического элементов...

2
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
31244 / 20423 / 7961
Регистрация: 22.10.2011
Сообщений: 35,454
Записей в блоге: 6
21.01.2014, 14: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
const
  N = 5; { Вводить 30 значений не очень хочется }
 
var
  A: array[1..N] of integer;
  i, k: integer;
  s: real;
 
begin
  s := 0;
  for i := 1 to N do
  begin
    readln(a[i]);
    s := s + a[i];
  end;
  s := s / n;
  writeln('Среднее = ', s:0:3);
  k := 1;
  for i := 2 to n do
    if abs(a[k] - s) > abs(a[i] - s) then k := i;
  
  writeln('искомый элемент: ', k, ' значение = ', a[k]);
end.
1
0 / 0 / 0
Регистрация: 13.01.2014
Сообщений: 14
21.01.2014, 14:49  [ТС] 3
не поможешь ещё с двумя заданиями они рядом вместе с этим висят на форуме
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.01.2014, 14:49

Заменить все элементы массива, меньшие среднего арифметического, значением среднего арифметического
В одномерном массиве целых чисел заменить все элементы, меньшие среднего арифметического,значением...

Из массива удалить элементы, стоящие после максимального и имеющие значение меньше среднего арифметического всех элементов массива
Из массива удалить элементы, стоящие после максимального и имеющие значение меньше среднего...

Нахождение среднего арифметического всех значений элементов двумерного массива
Народ, я знаю, что совсем обнаглел, но просто с массивами ну совсем туго: 1. Напишите программу...

Найти номер последнего элемента массива, который меньше среднего арифметического всех элементов
Найти номер последнего элемента, который меньше среднего арифметического всех элементов. знаю, что...


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

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

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