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

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

27.09.2010, 21:06. Просмотров 1654. Ответов 2
Метки нет (Все метки)

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

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

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

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

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

2
Модератор
61732 / 46207 / 31877
Регистрация: 18.05.2008
Сообщений: 111,496
28.09.2010, 09:34 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
51
52
53
54
55
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
    n:byte;
function Simm(i1,i2:byte):boolean;{функция проверки отрезка на симметричность}
var i,k,d:byte;
begin
k:=(i2-i1+1) div 2;{половина длины отрезка}
Simm:=true;
for i:=1 to k do
if a[i1+i-1]<>a[i2-i+1] then{сравниваем элементы симметрично середине, если не равны}
 begin
  Simm:=false;{не симметричный}
  break;
 end;
end;
var i,j,k,mx,i1,i2:byte;
begin
clrscr;
randomize;
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]:4);
writeln;
writeln;
mx:=1;{макс. длина отрезка}
i1:=1;i2:=1;{индексы начала и конца отрезка}
for i:=1 to n-1 do
for j:=i+1 to n do
if Simm(i,j) then{проверяем все отрезки длиной от 2 до n}
 begin
  k:=j-i+1;{длина отрезка}
  if k>mx then{если больше предыдущих}
   begin
    mx:=k;{это макс}
    i1:=i;{индексы начала и конца}
    i2:=j;
   end;
 end;
writeln('Отрезок максимальной длины с симметричными элементами:');
for i:=i1 to i2 do
write(a[i],' ');
readln
end.
2
4 / 4 / 0
Регистрация: 27.09.2010
Сообщений: 52
28.09.2010, 16:49  [ТС] 3
спасибо
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.09.2010, 16:49

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

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

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

Найдите отрезок массива, в котором первое число равно последнему, второе - предпоследнему и так далее
Задание: Задан числовой массив A(M). Найдите отрезок массива, в котором первое число равно...

Найти отрезок максимальной длины в массиве А
Найти отрезок максимальной длинны в массиве А из К элементов и вывести его на экран ,состоящий...


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

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

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