Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.73/11: Рейтинг темы: голосов - 11, средняя оценка - 4.73
scarrabey

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

30.03.2010, 15:55. Показов 2164. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В одномерном массиве, состоящем из n элементов, вычислить:
- максимальный из четных элементов массива;
- среднее арифметическое положительных элементов.
Преобразовать массив таким образом чтобы сначала распологались все элементы равные нулю, а потом все остальные.
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
30.03.2010, 15:55
Ответы с готовыми решениями:

Найти среднее арифметическое четных элементов, максимальный элемент массива
Дан целочисленный массив из к элементов: 1) найти ср.арифметическое четных по значению элементов. 2) найти значение макс. элементов.

Найти среднее арифметическое положительных и отрицательных элементов среди четных строк массива
помогите, написать программу! по заданию: Дан массив, Х(N,M) . найти среднее арифметическое положительных и отрицательных элементов среди...

Найти максимальный элемент одномерного массива и среднее арифметическое его положительных элементов
Передача массивов в функцию (одномерные массивы) Дан одномерный массив, состоящий из N вещественных элементов. Найти максимальный...

2
 Аватар для ActiveSync
14 / 14 / 10
Регистрация: 17.06.2009
Сообщений: 40
30.03.2010, 20:51
Лучший ответ Сообщение было отмечено как решение

Решение

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
CONST
  n=10;
VAR
  A: array[1..n] of integer;
  i, max, sum, kol: integer;
  srar: real;
BEGIN
  sum:=0;
  max:=0;
  kol:=0;
{ ANY CODE }
  for i:=1 to n do
  begin
    if (A[i] > 0) then
    begin
      sum:=sum + A[i];
      col:=col + 1;
    end;
    if ((A[i] mod 2) = 0) then
      if (A[i] > max) then
        max:=A[i];
  end;
  srar:=sum / n;
  writeln('Srednee arifmeticheskoe: ', srar:2:2);
  writeln('Maximalnij iz chetnih: ', max);
  readln;
END.
1
scarrabey
30.03.2010, 21:59
спасибо огромное!
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
30.03.2010, 21:59
Помогаю со студенческими работами здесь

Найти количество четных элементов с нечетными значениями и среднее арифметическое положительных элементов
Дан одномерный массив Хт. Найти количество четных элементов с нечетными значениями и среднее арифметическое положительных элементов....

Найти сумму и среднее арифметическое арифметическое положительных четных элементов
Массив целого типа, 5 элементов, вводится с клавиатуры. Выводится в столбец. Найти сумму и среднее арифметическое арифметическое...

Вычислить среднее арифметическое положительных четных элементов массива
С помощью генератора случайных чисел занести в массив Y(23) числа из диапазона от -12 до 20. Написать функцию, подсчитывающую среднее...

Найти сумму четных элементов массива и среднее арифметическое элементов с четными номерами
помогите пожалуйста сделать, очень срочно нужно. Элементы массива должны быть целочисленными в диапазоне от -10 до 10. Размерность...

Найти сумму четных элементов массива и среднее арифметическое элементов с четными номерами
Элементы массива генерируются случайным образом. Элементы массива должны быть целочисленными в диапазоне от -10 до 10. Размерность массива...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий
8Observer8 02.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .
Реалии
Hrethgir 01.03.2026
Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru