Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/12: Рейтинг темы: голосов - 12, средняя оценка - 4.83
JuliaS
0 / 0 / 0
Регистрация: 20.10.2015
1

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

19.01.2012, 21:14. Просмотров 2352. Ответов 2
Метки нет (Все метки)

Дан целочисленный массив A(N) Найти наименьшее из четных чисел, входящих в последовательность A[1]-1, A[1], A[2], ..., A[n] и количество нечетных чисел.
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.01.2012, 21:14
Ответы с готовыми решениями:

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

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

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

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

Найти наименьшее из четных чисел , входящих в последовательность
Даны , натуральное число n, и целые числа a(1).....a(n).Найти наименьшее из четных чисел , входящих...

2
Г.Р.
68 / 68 / 72
Регистрация: 18.01.2012
Сообщений: 132
21.01.2012, 13:11 2
Лучший ответ Сообщение было отмечено как решение

Решение

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
var
 mas:array [1..100] of longint;
 min,kol,i,n:longint;
begin
 readln(n);
 for i:=1 to n do
  readln(mas[i]);{записываем в массив}
 if(mas[1] mod 2 = 0) then{ставим минимум четных}
 begin
  min:=mas[1];
  kol:=1;
 end
 else
 begin
  min:=mas[1]-1;
  kol:=1;
 end;
 for i:=2 to n do
 begin
  if(mas[i] mod 2=0) then{если четное, то проверим, меньше ли оно чем текущий минимум, иначе увеличиваем счетчик}
  begin
   if(mas[i]<min) then
    min:=mas[i];
  end
  else
   kol:=kol+1;
 end;
 writeln('минимум четных ',min,' количество нечетных ',kol);
end.
1
PerSeAl
0 / 0 / 0
Регистрация: 23.10.2012
Сообщений: 11
05.12.2012, 03:51 3
Задача работает неверно...
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2012, 03:51

Операции с файлами. Найти количество четных, нечетных чисел, квадратов нечетных чисел
Дан файл F его компоненты - целые числа нужно найти: кол-во парных чисел кол-во непарных чисел...

Из 5 чисел найти количество четных и нечетных чисел, и найти соответственно их суммы
uses crt; var a,b,c,d,e,k1,k2,s1,s2:integer; begin writeln('vvedite 1 chislo'); ...

Для N вводимых с клавиатуры чисел определить количество четных чисел и сумму нечетных чисел
Для N вводимых с клавиатуры чисел определить количество четных чисел и сумму нечетных чисел.


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

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

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