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

Найти наибольшую сумму тpех нечётных элементов последовательности

22.06.2014, 11:05. Просмотров 839. Ответов 4
Метки нет (Все метки)

Найти наибольшую сумму тpёх нечётных элементов последовательности.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.06.2014, 11:05
Ответы с готовыми решениями:

Найти сумму положительных нечётных <100 в последовательности
Дана последовательность чисел заканчивающихся на 0 найти сумму положительных нечётных &lt;100

Среди элементов нечётных столбцов массива найти сумму отрицательных элементов
Дан массив Х(N,М). Среди элементов нечетных столбцов массива найти сумму отрицательных элементов.

Найти сумму элементов в нечётных столбцах матрицы.
Дан 2х мерный массив заполненный случайным образом. Найти сумму элементов в нечётных столбцах.

Найти сумму элементов массива, находящихся на нечётных позициях
Дан одномерный массив.Найти: 1) сумму элементов находящихся на нечётных позициях.

Найти наибольшую сумму двух чисел последовательности, между которыми интервал не менее заданного
На вход программе подаются целые числа, в первой строке задается их количество(не меньше семи),...

4
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
4209 / 3061 / 3784
Регистрация: 05.06.2014
Сообщений: 15,366
23.06.2014, 23:29 2
1. Найти три максимальных элемента в массиве среди нечетных чисел. Пример для двумерноно массива:
Найти в матрице 3 максимальных элемента, указать номер строки с минимальным элементом
Дорабатываете для одномерного, вставляете условие нечетности.
2. Считаете сумму трех максимумов.
Если я правильно понял условие задачи.
0
erl27
897 / 745 / 832
Регистрация: 06.09.2013
Сообщений: 1,561
24.06.2014, 01:12 3
Лучший ответ Сообщение было отмечено Ollga как решение

Решение

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
var
  A: array [1..1000] of integer;
  max1, max2, max3: integer;
  N, i, count: byte;
 
begin
  repeat
    write('N = '); 
    readln(N);
  until N > 2;
  max1 := -maxInt; max2 := -maxInt; max3 := -maxInt;
  count := 0; //количество нечетных элементов
  for i := 1 to N do begin
    a[i] := random(201) - 100;
    write(' ', a[i]);
    if odd(a[i]) then begin
      if count < 3 then inc(count); //увеличиваем количество нечетных элементов
      if max1 < a[i] then begin
        max3 := max2;
        max2 := max1;
        max1 := a[i]
      end else
      if max2 < a[i] then begin
        max3 := max2;
        max2 := a[i]
      end else
      if max3 < a[i] then max3 := a[i]
    end
  end;
  writeln;
  if count = 3 then writeln('Наибольшая сумма трех нечетных элементов: ', max1 + max2 + max3)
  else writeln('В массиве нет трех нечетных элементов');
  writeln
end.
3
APALoff
1640 / 1069 / 1080
Регистрация: 03.07.2013
Сообщений: 4,507
24.06.2014, 11:06 4
Нечетные элементы последовательности отсортировать по убыванию - ответ будет в первых трех элементах.
0
Ollga
0 / 0 / 0
Регистрация: 19.06.2014
Сообщений: 25
24.06.2014, 19:07  [ТС] 5
А можно блок-схему? Пожалуйста.
0
24.06.2014, 19:07
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.06.2014, 19:07

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

Найти наибольшую сумму подряд идущих элементов
Даны целые числа n, a1, a2,…, an. Найти наибольшую сумму подряд идущих элементов:)

Найти сумму всех нечётных элементов массива
1.Найти сумму всех нечётных элементов массива 2.найти количество элементов массива , равных 0


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

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

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