Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
nikich86
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 35
1

Опишите алгоритм подсчета максимального количества подряд идущих элементов

04.12.2017, 14:49. Просмотров 592. Ответов 3
Метки нет (Все метки)

Опишите алгоритм подсчета максимального количества подряд идущих элементов, каждый из которых меньше предыдущего в целочисленном массиве длины 20.
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.12.2017, 14:49
Ответы с готовыми решениями:

Напишите программу подсчета максимального количества подряд идущих совпадающих элементов
Всем привет!) надеюсь поможете сделать несколько программ с массивом. напишите программу...

Нахождение максимального количества подряд идущих пробелов
Задача на вид простая, но озадачила меня. Все, что нужно - это найти максимальное количество идущих...

Напишите алгоритм, который находит и выводит номер наибольшей возрастающей последовательности подряд идущих элементов
Добрый вечер, прошу помощи в решение задачи, буду очень благодарен!!! Дан целочисленный массив...

наибольшая сумма подряд идущих элементов
Дана последовательность Х1,Х2,Х3...Хn. Найти наибольшую сумму подряд идущих элементов.

максимальное количество подряд идущих элементов,
Помогите пожалуйста решить следующую задачу, вроде с паскалём работаю давно, а решить не...

3
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5253 / 3115 / 2330
Регистрация: 22.11.2013
Сообщений: 8,737
04.12.2017, 16:11 2
Pascal
1
2
3
4
5
6
7
  for i:=2 to 20 do
    if a[i]<a[i-1] then Inc(t)
    else begin
      if m<t then m:=t; t:=0;
    end;
  if m<t then m:=t;
  WriteLn(m);
0
nikich86
0 / 0 / 0
Регистрация: 14.02.2017
Сообщений: 35
05.12.2017, 13:51  [ТС] 3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
const N=20;
var
a: array [1..N] of integer;
t,m,i: integer;
begin
t:=1;
m:=1;
 for i:=2 to 20 do
    if a[i]<a[i-1] then Inc(t)
    else begin
      if m<t then m:=t; t:=0;
    end;
  if m<t then m:=t;
  WriteLn(m);
end.
Так сама программа должна выглядеть ?
0
bormant
Модератор
Эксперт Pascal/DelphiЭксперт NIX
5253 / 3115 / 2330
Регистрация: 22.11.2013
Сообщений: 8,737
05.12.2017, 18:37 4
Почти. Неплохо было бы еще массив наполнить чем-нибудь, чтобы не считать количество нулей в нем.
0
05.12.2017, 18:37
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2017, 18:37

максимальное количество подряд идущих элементов
Опишите на русском или одном из языков программирования алгоритм подсчета максимального количества...

Найти наибольшую сумму подряд идущих элементов
Даны целые числа n, a1, a2,…, an. Найти наибольшую сумму подряд идущих элементов:)

Массив, найти кол-во подряд идущих элементов.
В массиве из n элементов подсчитайте кол-во четвёрок идущих подряд членов, из которых все члены...


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

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

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