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

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

15.12.2012, 17:32. Просмотров 903. Ответов 4
Метки нет (Все метки)

дан числовой массив . Найти отрезок массива максимальной длины , в котором первое число равно последнему!
заранее спасибо
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.12.2012, 17:32
Ответы с готовыми решениями:

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

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

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

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

4
313 / 272 / 272
Регистрация: 25.09.2011
Сообщений: 477
15.12.2012, 18:44 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const max=40;
var
  a : array[1..max]of Byte;
  i,j,si,fi : byte;
Begin
  randomize; writeln('massive:');
  for i:=1 to max do begin a[i]:=random(17)+1; write(a[i]:5); end; writeln;
  si:=1; fi:=1;
  for i:=1 to max do for j:=max downto i do
  if a[i]=a[j] then if (j-i)>(fi-si) then begin si:=i; fi:=j; end;
  writeln('otrezok dlinnoj ',fi-si,' : start = ',si,' finish = ',fi);
  readln;
End.
1
1 / 1 / 0
Регистрация: 26.11.2012
Сообщений: 93
18.12.2012, 16:22  [ТС] 3
Цитата Сообщение от Zhexon Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
const max=40;
var
  a : array[1..max]of Byte;
  i,j,si,fi : byte;
Begin
  randomize; writeln('massive:');
  for i:=1 to max do begin a[i]:=random(17)+1; write(a[i]:5); end; writeln;
  si:=1; fi:=1;
  for i:=1 to max do for j:=max downto i do
  if a[i]=a[j] then if (j-i)>(fi-si) then begin si:=i; fi:=j; end;
  writeln('otrezok dlinnoj ',fi-si,' : start = ',si,' finish = ',fi);
  readln;
End.
а можно сделать так чтобы на кран выводил этот отрезок?
0
313 / 272 / 272
Регистрация: 25.09.2011
Сообщений: 477
18.12.2012, 20:59 4
добавь этот код между 11 и 12 строками
Pascal
1
for i:=si to fi do write(a[i]:5);
1
1 / 1 / 0
Регистрация: 26.11.2012
Сообщений: 93
20.12.2012, 15:22  [ТС] 5
Zhexon, дан массив. сформировать новый массив, в который включить только латинскые буквы из исходного массива
сделай плиззз если можешь только простыми функциями
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.12.2012, 15:22

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

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

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

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

Найти отрезок максимальной длины
Із множини заданих на площині відрізків сформувати підмножину відрізків, що перетинають пряму , та...


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

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

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