Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 10, средняя оценка - 4.90
wandw9697
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 12
#1

Определить количество элементов последовательности - Turbo Pascal

01.11.2012, 10:40. Просмотров 2005. Ответов 6
Метки нет (Все метки)

Дана последовательность целых чисел а1, a2, ..., a18, в начале которой записано несколько равных между собой элементов. Определить количество таких элементов последовательности. Условный оператор не использовать

Добавлено через 2 часа 50 минут
турбо паскаль

Добавлено через 29 секунд
Ну помогите плиз, очень срочно надо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
01.11.2012, 10:40
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить количество элементов последовательности (Turbo Pascal):

Определить количество положительных и количество отрицательных элементов последовательности
Задание: Составить программу используя оператор цикла с параметром. Задача:...

Определить количество элементов последовательности
Условие во вложении

Определить количество элементов последовательности, которые больше 10
Помогите пожалуйста Дана последовательность чисел 1!;2!;3!;4!;...n!,где n...

Определить количество элементов последовательности натуральных чисел...
Определить количество элементов последовательности натуральных чисел, кратных M...

Определить количество элементов последовательности, удовлетворяющих условию
Здравствуйте уважаемые форумчане, очень надеюсь на вашу помощь. Составить...

Определить количество элементов последовательности натуральных чисел в одномерной матрице
Определить количество элементов последовательности натуральных чисел в...

6
Puporev
Модератор
54148 / 41781 / 28888
Регистрация: 18.05.2008
Сообщений: 98,331
01.11.2012, 11:17 #2
Равные могут быть только в начале, или например так 4,4,4,4,5,5,4,4,4?
0
wandw9697
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 12
01.11.2012, 13:14  [ТС] #3
Напишите программу как вам угодно
0
Puporev
Модератор
54148 / 41781 / 28888
Регистрация: 18.05.2008
Сообщений: 98,331
01.11.2012, 13:19 #4
Считает все равные первому, поэтому нужно одинаковые вводить только в начале.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var a,b,k,i:integer;
begin
clrscr;
writeln('Введите 18 целых чисел, в начале несколько одинаковых:');
readln(a);
k:=1;
for i:=2 to 18 do
 begin
  readln(b);
  k:=k+ord(b=a);
 end;
write('Количество одинаковых в начале=',k);
readln
end.
0
wandw9697
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 12
01.11.2012, 13:30  [ТС] #5
напиши если вам не трудно другой вариант, в котором не только нужно вводить в начале
0
Puporev
Модератор
54148 / 41781 / 28888
Регистрация: 18.05.2008
Сообщений: 98,331
01.11.2012, 13:32 #6
Да если бы мог, то давно бы уже написал...
1
wandw9697
0 / 0 / 0
Регистрация: 31.10.2012
Сообщений: 12
01.11.2012, 13:36  [ТС] #7
Все равно вам большое спасибо
0
01.11.2012, 13:36
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
01.11.2012, 13:36
Привет! Вот еще темы с решениями:

Определить сумму и количество элементов последовательности, меньших заданного значения d.
Здравствуйте всем!!! помогите решить задачу!!! Задана последовательность из n...

Задана последовательность из n вещественных чисел. Определить количество элементов последовательности
Задана последовательность из n вещественных чисел. Определить количество...

Определить количество четных элементов массива и количество элементов, оканчивающихся на цифру 5
помогите очень надо. 3.Одномерные массивы. Дан массив целых чисел....

Определить количество четных элементов массива и количество элементов, оканчивающихся а цифру 5
Одномерные массивы. Дан массив целых чисел. Определить количество четных...


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

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

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