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

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

10.03.2014, 23:23. Просмотров 2221. Ответов 1
Метки нет (Все метки)

Всем привет!) надеюсь поможете сделать несколько программ с массивом.

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

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

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

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

Напишите программу подсчета количества уникальных элементов в целочисленном массиве длины N<100
Всем привет!) надеюсь поможете сделать несколько программ с массивом. Первая, напишите программу...

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

1
Cyborg Drone
Модератор
6974 / 3653 / 2638
Регистрация: 17.08.2012
Сообщений: 11,662
11.03.2014, 12:08 2
Лучший ответ Сообщение было отмечено Cheborz95 как решение

Решение

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
const m = 30;
var a: array [1..m] of integer;
    i, n, k: integer;
begin
  randomize;
  writeln('Source array:');
  for i := 1 to m do
    begin
      a[i] := random(10);
      write(a[i]:2)
    end;
  writeln;
  k := 1;
  n := 1;
  for i := 2 to m do
    if a[i - 1] = a[i]
      then inc(k)
      else begin
        if k > n then n := k;
        k := 1
      end;
  writeln('Result: ', n);
  readln
end.
1
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.03.2014, 12:08

Напишите программу подсчета суммы произведений последовательных пар элементов в целочисленном массиве из N элементов.
Примечание: надо сосчитать сумму произведений первого и второго, третьего и четвертого, пятого и...

Рекурсия: Составить программу подсчета общего количества положительных элементов в массивах
Составить программу подсчета общего количества положительных элементов в массивах А и В.

Написать программу подсчета количества элементов файла,меньших среднего арифметического
pascal.Написать программу подсчета количества элементов файла,меньших среднего арифметического всех...


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

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

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