Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
sanat27
0 / 0 / 0
Регистрация: 22.05.2012
Сообщений: 16
1

Найти максимальное количество четных чисел в наборе, идущих подряд

12.06.2012, 23:30. Просмотров 674. Ответов 0
Метки нет (Все метки)

Помогите исправить ошибку... 43. Дано целое число N и набор из N целых чисел. Найти макси¬мальное количество четных чисел в наборе, идущих подряд. Если четные числа в наборе отсутствуют, то вывести 0.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
a,N,i,kol,sum:integer;
begin
i:=0;
Writeln('Введите число N = ');
readln(N);
Writeln('Введите ',N,' целых чисел.');
sum:=0;
kol:=0;
While (ido
begin
inc(i);
Read(a);
if(a mod 2)=0 then inc(sum)
else begin if sum>kol then kol:=sum; sum:=0; end;
end;
Writeln('Максимальное кол-во четных чисел в наборе, идущих подряд = ',kol);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.06.2012, 23:30
Ответы с готовыми решениями:

Найти количество четных чисел в наборе из 10 целых чисел
Описать функцию Even(K) логического типа, возвращающую True, если целый...

Определить максимальное количество положительных элементов последовательности, идущих подряд
Дано: массив вещественных чисел А. Определить максимальное количество...

Определить количество чисел в наиболее короткой подпоследовательности из подряд идущих.
Дана последовательность из 100целых чисел. Определить количество чисел в...

Определить количество чисел в наиболее длинной подпоследовательности из подряд идущих нулей
Дана последовательность из 10 целых чисел. Определить количество чисел в...

Найти наибольшее количество цифр, идущих подряд
Привет всем такая проблема есть код но не знаю где в нём ошибка помогите...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2012, 23:30

Найти наибольшее количество подряд идущих цифр в строке
подскажите как найти наибольшее количество подряд идущих цифр в этой строке,...

Дан массив целых чисел а1,…, а(энное). Подсчитать количество подряд идущих нечетных элементов
помогите пожалуйста. Добавлено через 5 часов 42 минуты Help!

Найти наибольшее количество одинаковых элементов массива А, идущих подряд
Помогите пожалуйста неучу! :-| Задание таково: Найти наибольшее количество...


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

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

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