0 / 0 / 0
Регистрация: 20.10.2011
Сообщений: 13
1

Найти элемент в двумерном массиве наиболее близкий по значению

17.11.2011, 18:21. Показов 1369. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Найти элемент в двумерном массиве наиболее близкий по значению к среднему арифметическому всех элементов. Записать его и его индексы.
Пожалуйста
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.11.2011, 18:21
Ответы с готовыми решениями:

Найти элемент наиболее близкий к среднему арифметическому значению в массиве из 10 элементов
1. Найти элемент наиболее близкий к среднему арифметическому значению в массиве из 10 элементов.

Найти элемент, наиболее близкий к среднему значению всех элементов массива
Задача Найти элемент, наиболее близкий к среднему значению всех элементов массива. Я не знаю, как...

Найти элемент, наиболее близкий к среднему значению всех элементов массива
Найти элемент, наиболее близкий к среднему значению всех элементов массива.

Найти среднее арифметическое и исключить элемент, наиболее близкий к к этому значению
Помогите решить задачку в Delphi!! В заданном массиве a1, a2, …, an исключить элемент, наиболее...

1
1 / 1 / 4
Регистрация: 14.11.2011
Сообщений: 19
18.11.2011, 07:49 2
Лучший ответ Сообщение было отмечено triumvirat как решение

Решение

Добавлено через 1 час 4 минуты
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
40
program poisk_samogo_bliz_el_w_massiwe;
uses crt;
const mini=1; minj=1;
      maxi=10; maxj=10;                         { maxi, maxj - размеры массива ( таблицы елементов ) }
type zonai=mini..maxi; zonaj=minj..maxj;   { т.е кол-во елементов = maxi * masj }
     massiw=array[zonai,zonaj] of integer;
var  i:zonai; j:zonaj; mas:massiw; a:word; x,y,z:real; t:boolean;
BEGIN randomize; clrscr;
for i:=mini to maxi do begin writeln;
for j:=minj to maxj do
begin
mas[i,j]:=random(899)+100;          { заполнение массива случ. числами в диапозоне 0..1000 }
write(mas[i,j],' ');                        { вывод на экран массива ( таблицы элементов ) }
end;
end;writeln;
  for i:=mini to maxi do
  for j:=minj to maxj do     
    begin
     inc(a);                    { a - щитает кол-во элементов }
     x:=x+mas[i,j];          { x - щитает сумму всех элементов } 
    end;                                                      { сумма всех элементов делить на их кол-во и }
    writeln('CpegHee ApuqpMeTu4ecKoe = ',(x/a):5:5);      { есть ср. арифм. которое и выводим на экран }
                                                                { (x/a):5:5 - при деление получем результат    }
                                                                 { типа real и что бы ответ выглядел наглядний }
                                                                  { выводим на экран пять цифр после запятой }
                                                                  { и не более пяти до запятой }
  for i:=mini to maxi do
  for j:=minj to maxj do
    begin
     y:=(x/a)-mas[i,j];                                  { ищем минимальную разницу между значением элемента }
     y:=abs(y);                                              { и ср. арифмет.   }
     if t=false then begin z:=y; t:=true; end;            
     if y<z then z:=y;
    end;
  for i:=mini to maxi do
  for j:=minj to maxj do
    if abs((x/a)-mas[i,j])=z then                          { находим елемент который имеет эту самую }
    writeln('element "',mas[i,j],'" uHgeKcbl ',i,' i ',j);   { мин. разницу с ср. арифм. и выводим его на экран }
readkey;
END.
в строке
Pascal
1
massiw=array[zonai,zonaj] of integer;
можно изменить integer на real если в условии массив из вещественных чисел
0
18.11.2011, 07:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
18.11.2011, 07:49
Помогаю со студенческими работами здесь

Найти элемент, наиболее близкий к среднему значению всех элементов массива
Дан массив целых чисел. Найти элемент , наиболее близкий к среднему значению всех элементов...

Найти элемент, наиболее близкий к среднему значению всех элементов списка
Найти элемент, наиболее близкий к среднему значению всех элементов списка. from random import...

Найти элемент, наиболее близкий к среднему значению всех элементов массива
Найти элемент, наиболее близкий к среднему значению всех элементов массива.

Дан одномерный массив. Найти элемент наиболее близкий к среднему арифметическому значению всех элементов
Дан массив целых чисел. Найти элемент наиболее близкий к среднему арифметическому всех элементов...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru