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

Найти наименьшее из четных чисел , входящих в последовательность

26.04.2018, 19:17. Показов 5467. Ответов 7
Метки нет (Все метки)

Даны , натуральное число n, и целые числа a(1).....a(n).Найти наименьшее из четных чисел , входящих в последовательность
a(1)-1,a(1),a(2).....a(n).
Не знаю как решить , да и даже с чего начать , помогите пж , если не трудно то с объяснением решения.
Очень буду благодарен!!
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.04.2018, 19:17
Ответы с готовыми решениями:

Найти наименьшее из четных чисел, входящих в последовательность
" Массивы не использовать" Даны числа n приналежит N, q1, q2, …, qn принадлежит Z, найти...

Найти наибольшее из нечетных и количество четных чисел, входящих в последовательность
Даны натуральное число n, целые числа a1 ..., аn. Найти: наибольшее из нечетных и количество...

Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел
Дан целочисленный массив A(N) Найти наименьшее из четных чисел, входящих в последовательность...

Найти наибольшее из нечетных и количество четных чисел, входящих в последовательность
Даны натуральное число n целые числа a1, ..., an. Найти наибольшее из нечетных и количество четных...

7
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
26.04.2018, 19:29 2
Объявите переменные
Pascal
1
2
var n,i,mn,integer;
     a:array[1..100] of integer;
Введите размер массива n<=100
Заполните его числами или вводом с клавы или с помощью random.
Программ на массивы в разделе море, ищите изучайте.
Алгоритм решения
Pascal
1
2
3
4
5
6
7
8
9
mn:=1;
for i:=1 to n do
if a[i] mod 2=0 then
 begin
  if mn=1 then mn:=a[i]
  elae if a[i]<mn then mn:=a[i];
 end;
if mn=1 then write('В массиве нет четных элементов')
else write('Минимальный четный элемент=',mn);
0
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 12
26.04.2018, 20:27  [ТС] 3
Спасибо огромное , еще пару вопросов что в 3 строке означает "mod 2=0",команду mod знаю , а вот что 2=0 не пойму,и если можно блок схему.Буду очень благодарен.И спасибо за быстрый ответ !
0
3402 / 1821 / 489
Регистрация: 28.02.2015
Сообщений: 3,699
26.04.2018, 22:09 4
Цитата Сообщение от Ostap1234 Посмотреть сообщение
"mod 2=0
Проверка на четность
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
27.04.2018, 09:31 5
Если остаток от деления целого числа на 2=0, то число четное.
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
7069 / 4196 / 2730
Регистрация: 22.11.2013
Сообщений: 12,028
Записей в блоге: 1
29.04.2018, 12:40 6
Другой вариант (воспользуемся тем фактом, что максимальное число нечётно):
Pascal
1
2
3
4
5
6
  mn:=High(mn);
  for i:=Low(a) to High(a) do
    if not Odd(a[i]) and (mn>a[i]) then mn:=a[i];
  if mn<>High(mn)
  then WriteLn('Минимальный чётный: ',mn)
  else WriteLn('Чётных элементов НЕТ');
0
0 / 0 / 0
Регистрация: 07.02.2018
Сообщений: 12
24.05.2018, 18:23  [ТС] 7
как запускаю пишет что a-неизвестная переменная
0
Почетный модератор
64254 / 47554 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
24.05.2018, 18:25 8
Так раздел var напишите.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2018, 18:25
Помогаю со студенческими работами здесь

Найти наименьшее из четных чисел и среднее значение у положительных
Bвecти пocлeдoвaтeльнo n прoизвoльныx цeлыx чиceл. Haйти нaимeньшee из чeтныx чиceл и cрeднee...

Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой последовательность. если таких чисел нет то вывести сообщение о
Дана последовательность натуралных чисел a1,а2,аn. создать массив из четных чисел этой...

Дана последовательность чисел, найти в ней наименьшее число
Дана последоВательность чисел. найти В ней наименьшее число. Входные данные. задано сначала...

Вводится последовательность из 15 целых чисел. Найти количество четных чисел
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать. Вводится...


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

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

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