Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
0 / 0 / 0
Регистрация: 20.02.2014
Сообщений: 26
1

Дана последовательность целых чисел, за которой следует 0. Определить среднее арифметическое чётных элементов, расположенных за вторым нечётным

20.02.2014, 20:34. Просмотров 769. Ответов 5
Метки нет (Все метки)

Может кто-нибудь помочь. На паскале.
Дана последовательность целых чисел, за которой следует 0. Определить среднее арифметическое чётных элементов, расположенных за вторым нечётным.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
20.02.2014, 20:34
Ответы с готовыми решениями:

ДАНА последовательность из целых чисел, за которой следует 0, найти среднее арифметическое отрицательных чисел. C++
ДАНА последовательность из целых чисел,за которой следует 0, найти среднее арифметическое...

Дана последовательность целых чисел, за которой следует 0. Найти количество четных элементов этой последовательности
Дана последовательность целых чисел, за которой следует 0. Найти количество четных элементов этой...

Дана последовательность целых чисел, за которой следует 0. Найти количество четных элементов этой последовательности.
Дана последовательность целых чисел, за которой следует 0. Найти количество четных элементов этой...

Данная последовательность целых чисел, за которой следует 0. Найти среднее арифметическое этой последовательности
Данная последовательность целых чисел, за которой следует 0. Найти среднее арифметическое этой...

5
Форумчанин Паскаля
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
20.02.2014, 20:36 2
0 завершает массив?

Добавлено через 15 секунд
точнее последовательность элементов?
0
0 / 0 / 0
Регистрация: 20.02.2014
Сообщений: 26
20.02.2014, 20:36  [ТС] 3
Да, 0 завершает последовательность.
0
Форумчанин Паскаля
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
20.02.2014, 20:43 4
var double,sum,i,a:longword;

begin
sum:=0;
i:=1;
double:=0;
while a<>0 do
begin
if a mod 2 =1 then inc(double);
if (double>=2) and (a mod 2=0)
then sum:=sum+a;
end;
end.

Добавлено через 32 секунды
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var double,sum,i,a:longword;
 
begin
sum:=0;
i:=1;
double:=0;
while a<>0 do
begin
if a mod 2 =1 then inc(double);
if (double>=2) and (a mod 2=0) 
then sum:=sum+a;
end;
end.
Вот так

Добавлено через 18 секунд
Без массивов, так намного проще
1
Модератор
1599 / 1059 / 480
Регистрация: 17.07.2012
Сообщений: 5,241
20.02.2014, 21:12 5
Цитата Сообщение от code-n'-help Посмотреть сообщение
double
Не рекомендуется в качестве названия переменной брать название типа.
0
Форумчанин Паскаля
77 / 90 / 55
Регистрация: 08.11.2013
Сообщений: 399
Записей в блоге: 2
20.02.2014, 21:20 6
Да я не очень прав
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.02.2014, 21:20

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дана непустая последовательность положительных целых чисел, за которой следует 0 (это признак конца последовательности). Вычислить среднее геометри
//Дана непустая последовательность положительных целых чисел, за которой следует 0 //(это признак...

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

Дана последовательность целых чисел, за которой следует ноль. Определить, является ли она возрастающей
Задание аналогично заголовку)

Дана последовательность целых чисел, за которой следует 0. Определить есть ли в ней хотя бы 2 совершенных числа
Нужна помощь. Дана последовательность целых чисел, за которой следует 0. Определить есть ли в ней...


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

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

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