Другие языки программирования и технологии

Pascal Процедуры.Хелп.

Собственно вот задача. Создать двумерный массив целых чисел. Найти среднегеометрическое для всех нечетных чисел етого массива.. В принципе понятно , что надо создать процедуру , где где общее множество всех нечётных чисел мы делим на их кол-во. Перед етим мы конеченоже создаем массив , и что бы он не был трудный сделаем его вида ( x1 x2 ) И макс количество цифр мы задаём от 0 до 9 . (x21 x22) Вопрос состоит в том , что непонятно как узнать все нечетные числа (1,3,5,7,9) и их кол-во ...помогите плз , а то чтото я запутался ...
Aziz Kuzibaev
Aziz Kuzibaev
185
Я думаю не мешало бы создать ещё один массив нечетных чисел (одномерный) .тогда получится так:

l:=1;
for i:=1 to n do
for j:=1 to m do
if masiv1[i,j] mod 2 <>0 then begin masiv2[l]:=masiv1[i,j]; inc(l); end;

Ну теперь естьмассив masiv2[1..l], применяй формулу среднего геометрического
Георгий Степанов
Георгий Степанов
2 587
Лучший ответ
Зачем mod 2? Есть стандартная функция odd... Вообще, пусть меня простят, какой вопрос, такие и ответы...
Roman Parfenko
Roman Parfenko
22 474
mod2? если остаток от деления не 0 то нечетное. а колво просто прогонкой по масиву начиная с порвого элемента создаемсчетчик и пишем +1 когда находит не четный эдемент
Aleksey Pospelov
Aleksey Pospelov
7 813
любой каприз за ваши деньги и что ты там делить собрался.. . это не среднее арифметическое =))) общее МНОЖЕСТВО.. . что за ересь, даже на языке математике не можешь сформулировать, как найти среднее геометрическое =)))) обращайся, сделаю за символическую плату, а то развелось халявщиков =)))
Денис Усов
Денис Усов
6 247
У нас, вроде, множество ВСЕХ нечетных чисел бесконечно. Делить множество на число, а тем более бесконечность, это все равно, что апельсины делить на макароны.
Единственное к чему нельзя придраться, так это к фразе "И макс количество цифр мы задаём от 0 до 9 .". Реально, в природе существует всего 10 арабских цифр. От 0 до 9.

Удивляют попытки Сергея давать советы к этому бреду. Пальцем в небо? Или на о ребята на одной волне? Тогда колитесь, где брали и по чем то недетское курево!
Артём Бяхов
Артём Бяхов
1 480

Похожие вопросы