Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
1

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

29.11.2011, 02:20. Просмотров 1154. Ответов 4
Метки нет (Все метки)

массивы..
0
Миниатюры
Найти отрезок массива максимальной длины, в котором первое число равно последнему  
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.11.2011, 02:20
Ответы с готовыми решениями:

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

Найдите отрезок максимальной длины, в котором первое число равно последнему, второе — предпоследнему
Задан числовой массив длины N . Найдите отрезок максимальной длины, в котором первое число равно...

Найти отрезок массива максимальной длины, в котором первое число равно последнему, второе предпоследнему и т.д.
Задан числовой массив A. Найти отрезок массива максимальной длины, в котором первое число равно...

Как в массиве найти отрезок максимальной длины
Помогите пожалуйста задачку решить. Дан массив целых чисел. Рассмотреть отрезки массива,...

4
Модератор
61667 / 46164 / 31854
Регистрация: 18.05.2008
Сообщений: 111,324
29.11.2011, 08:25 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n,i,j,i1,ip,p,mx:integer;
begin
clrscr;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите элементы массива:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to n do
write(a[i],' ');
writeln;
writeln;
mx:=0;{макс. длина отрезка}
i1:=0;{его начало}
ip:=0;{конец}
i:=1;{начнем с первого}
while i<n do{до предпоследнего}
 begin
  j:=n;{ищем с конца пару}
  p:=0;{ее позиция}
  while(j>i)and(p=0) do{пока не нашли и не дошли до начала}
  if a[j]=a[i] then p:=j{если нашли, запомним позицию}
  else j:=j-1;{иначе влево идем}
  if p-i>mx then{если разность конца и начала больше чем предыдущие}
   begin
    i1:=i;{зафиксируем начало}
    ip:=p;{конец}
    mx:=p-i;{новый максимум}
   end;
  i:=i+1;{следующий проверяем}
 end;
if mx=0 then write('В массиве нет одинаковых чисел')
else
 begin
  writeln('Отрезок максимальной длины:');
  for i:=i1 to ip do
  write(a[i],' ');
 end;
readln
end.
1
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
29.11.2011, 11:16  [ТС] 3
я не могу разобраться в программе,при запуске.Подскажите,пожалуйста.

спасибо)
 Комментарий модератора 
Если какой-либо пост на форуме показался вам полезным, нажмите кнопку "Спасибо" внизу самого поста. (Правила форума п.4.5.)
0
Модератор
61667 / 46164 / 31854
Регистрация: 18.05.2008
Сообщений: 111,324
29.11.2011, 11:18 4
Цитата Сообщение от NiFROM Посмотреть сообщение
я не могу разобраться в программе,при запуске
В каком смысле при запуске?
1
0 / 0 / 0
Регистрация: 15.11.2011
Сообщений: 57
29.11.2011, 11:24  [ТС] 5
когда F9 жмешь.

в черном окошке n=100 , хотя у меня должно (наверно) быть 8 ?

Добавлено через 2 минуты
аааааааа) все разобрался!
спасибо !
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2011, 11:24

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

Найти число, меньше заданного, в котором сумма цифр была бы максимальной
Привет всем вот как бы вы решили эту задачу ? вот дано 'x' где 1&lt;=x&lt;=10^18 нужно найти такое...

В массиве найти отрезок максимальной длины, в котором первое число равно последнему
дан массив в массиве а найти отрезок максимальной длины в котором первое число равно последнему...

В массиве найти отрезок максимальной длины, в котором первое число равно последнему, второе - предпоследнему и т.д. Напечатать характеристики этого от
Помогите ребят!!!!препод задачи задачи для аттестации,сделал фактически все,кроме этой: &quot;В массиве...

Найти отрезок массива-палиндром, в котором первое число равно последнему, второе предпоследнему и т.д.
Перевертыши. Дан числовой массив А. Найти отрезок массива максимальной длины, в котором первое...


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

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

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