Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal ABC

Войти
Регистрация
Восстановить пароль
 
Ollga
0 / 0 / 0
Регистрация: 19.06.2014
Сообщений: 25
#1

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

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

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

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

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

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

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

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

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

4
ZX Spectrum-128
Модератор
Эксперт Pascal/Delphi
3835 / 2822 / 1941
Регистрация: 05.06.2014
Сообщений: 13,818
23.06.2014, 23:29 #2
1. Найти три максимальных элемента в массиве среди нечетных чисел. Пример для двумерноно массива:
Найти в матрице 3 максимальных элемента, указать номер строки с минимальным элементом
Дорабатываете для одномерного, вставляете условие нечетности.
2. Считаете сумму трех максимумов.
Если я правильно понял условие задачи.
0
erl27
892 / 741 / 432
Регистрация: 06.09.2013
Сообщений: 1,561
24.06.2014, 01:12 #3
Лучший ответ Сообщение было отмечено автором темы, экспертом или модератором как ответ
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
1637 / 1066 / 470
Регистрация: 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
Привет! Вот еще темы с ответами:

Найти в этой последовательности наибольшую по длине последовательность рядом стоящих элементов, представляющих собой простые числа. - Pascal
Дана последовательность из n (n&lt;=13) натуральных чисел. Найти в этой последовательности наибольшую по длине последовательность рядом...

Найти наибольшую сумму элементов массива из сумм выше и ниже главной диагонали. - Pascal ABC
Найти наибольшую сумму элементов массива из сумм выше и ниже главной диагонали.

Массивы. Найти номер того столбца, который имеет наибольшую сумму элементов - Pascal ABC
Дан массив X(N,M), найти номер того столбца,который имеет наибольшую сумму элементов

Найти сумму максимума среди чётных и минимума среди нечётных элементов массива - Pascal
1. Дан одномерный массив. Найти сумму максимума среди чётных и минимума среди нечётных. 2. Дана последовательность из n целых чисел....


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

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

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