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

Получить наибольшую из длин рассматриваемых отрезков из массива

04.03.2013, 20:17. Просмотров 1184. Ответов 1
Метки нет (Все метки)

Ввести массив целых чисел (размерность любая). Рассмотреть отрезки массива (группы идущих подряд чисел), состоящие из нечетных чисел. Получить наибольшую из длин рассматриваемых отрезков.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.03.2013, 20:17
Ответы с готовыми решениями:

Получить наибольшую из длин рассматриваемых отрезков
Даны натуральное число n, целые числа а1,...,аn. Рассмотреть отрезки последовательности а1,...,аn...

Определить наибольшую и наименьшую из длин рассматриваемых отрезков
Здравствуйте! Помогите пожалуйста понять, как определяются наим. и наиб. длины отрезков. Есть...

Получить наибольшую из длин рассматриваемых отрезков
Дано натуральное число n, целые числа a1, ..., an. Рассмотреть отрезки последовательности a1, ...,...

Получить наибольшую из длин рассматриваемых отрезков
Дано натуральные число n, целые числа a1,...an. Рассмотреть отрезки последовательности a1,...an...

Получить наибольшую из длин рассматриваемых отрезков последовательности
Даны натуральное число n, целые числа a1,...,an. Рассмотреть отрезки последовательности a1,...,an...

1
ermolay
3444 / 2382 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
04.03.2013, 23:28 2
Лучший ответ Сообщение было отмечено Qantrox1 как решение

Решение

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
var
  a: array[1..50] of integer;
  n,i,j,x,max: integer;
begin
  write('Ñêîëüêî ýëåìåíòîâ â ìàññèâå? ');
  readln(n);
  writeln('Ìàññèâ:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i],' ');
  end;
  max:=1;
  i:=1;
  while i<=n do
    if a[i] mod 2<>0 then
    begin
      j:=i; x:=0; 
      while (a[j] mod 2<>0)and(j<=n) do
      begin
        inc(x);
        inc(j);
      end;
      if x>max then max:=x;
      i:=j+1;
    end else inc(i);
  writeln;
  writeln('Íàèáîëüøàÿ äëèíà îòðåçêà íå÷åòíûõ ýëåìåíòîâ = ',max);
  readln;
end.
Добавлено через 3 минуты
упс!.. невнимательно прочитал задание
то же самое с выводом отрезка:
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
var
  a: array[1..50] of integer;
  n,i,j,x,k,max: integer;
begin
  write('Ñêîëüêî ýëåìåíòîâ â ìàññèâå? ');
  readln(n);
  writeln('Ìàññèâ:');
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    write(a[i],' ');
  end;
  max:=0;
  i:=1;
  while i<=n do
    if a[i] mod 2<>0 then
    begin
      j:=i; x:=0; k:=i;
      while (a[j] mod 2<>0)and(j<=n) do
      begin
        inc(x);
        inc(j);
      end;
      if x>max then
      begin
        max:=x;
        k:=i;
      end;
      i:=j+1;
    end else inc(i);
  writeln;
  writeln('Íàèáîëüøàÿ äëèíà îòðåçêà íå÷åòíûõ ýëåìåíòîâ = ',max);
  writeln('Îòðåçîê:');
  for i:=k to k+max-1 do write(a[i],' ');
  readln;
end.
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.03.2013, 23:28

Рассмотреть отрезки, идущих подряд членов последовательности, состоящие из полных квадратов. Получить наибольшую из длин рассматриваемых отрезков
Даны натуральное число n, целые числа a_1 ,…,a_n. Рассмотреть отрезки идущих подряд членов данной...

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

Найти наибольшую из длин отрезков, состоящих из простых чисел
Даны натуральное число n, целые числа а1, а2, …, аn. Рассмотреть отрезки последовательности а1,...


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

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

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