Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Найти минимальный элементов каждый строки матрицы, исключая главную диагональ http://www.cyberforum.ru/turbo-pascal/thread425282.html
дана матрица A размером 4х4 . но есть загвоздка....надо найти минимум каждой строки исключаю главную диагональ , но например смотрин на 1 строку там у нас минимум находится в 3 столбце 219 мы его...
Поиск номеров всех элементов массива, больших чем предыдущие Turbo Pascal
1.Дано массив A составить программу поиска номеров всех его элементов, больших чем предыдущие. 2.Дано массив A составить программу поиска всех его элементов меньших суммы диагональных элементов. ...
Turbo Pascal Паскаль-программа, которая продуцирует цепочки в трёхсимвольном алфавите с записью их в файл...
Создать Паскаль-программу, которая будет продуцировать цепочки в трёхсимвольном алфавите с записью их в файл, причем длина L цепочек ограничена: 4 <= L <= 8. Содержит одно сочетание «аb»,...
Turbo Pascal Найти количество квадратов четных чисел надо найти количество квадратов четных чисел. я нашел ток количесво четных. объясните мне про квадрат... вот прога PROGRAM PR37; VAR F:FILE OF INTEGER; A,X,N,K:INTEGER; BEGIN ... http://www.cyberforum.ru/turbo-pascal/thread425234.html
Turbo Pascal Строки http://www.cyberforum.ru/turbo-pascal/thread425219.html
Дана строка символов S. Получить первое натуральное і, для которого каждый из символов Si и Si+1 совпадает с буквой 'a'. Если такой пары символов нет, то ответом должно быть число 0. Помогите...
Местоположение слона на шахматной доске Turbo Pascal
Задача: даны координаты n фигур на шахматной доске и координаты слона. Определить, сможет ли слон за один ход перейти на данное свободное поле. думаю реализовывать проверку через 4 процедуры,...
Turbo Pascal Среди элементов матрицы, расположенных выше главной диагонали, найти наибольшее значение
1.Дана целочисленная матрица Х размером 10х10. Среди элементов,расположенных выше главной диагонали,найти наибольшее значение. 2.Дана вещественная матрица А размером 6х8. Добавить к ней столбец,...
Turbo Pascal Составить блок схемы spasite http://www.cyberforum.ru/turbo-pascal/thread425194.html
Turbo Pascal Определить для каждого вида бензина, сколько АЗС продают его дешевле всего http://www.cyberforum.ru/turbo-pascal/thread425166.html
Напишите программу на Паскале! Решение есть, но оно некорреткно и программа работает не правильно! На автозаправочных станциях (АЗС) продается бензин с маркировкой 92, 95 и 98. В городе N был...
Turbo Pascal Метод Эйлера Методом Эйлера решить f(x,y)=dy/dx=xy при начальных условиях (0,1). С шагом h=0.1 вычислить координаты еще 9 точек по формулам: X(i+1)=X(i)+h Y(i+1)=Y(i)+h*f http://www.cyberforum.ru/turbo-pascal/thread425097.html
versa4e
trainspotting
1083 / 483 / 384
Регистрация: 11.11.2010
Сообщений: 773
10.01.2012, 01:12 0

Программа для подсчета наибольшего количества повторения подряд числа!

10.01.2012, 01:12. Просмотров 1448. Ответов 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
var
  prev,cur,k,max,n,i:integer;
begin  
  write('Kol-vo chisel:');
  readln(n);
  write('x=');
  readln(prev);
  max:=1;
  k:=1;
  for i:=2 to n do
    begin
      write('x=');
      readln(cur);
      if cur=prev then
        begin
          inc(k);
          if k>max then
            max:=k;
        end
      else
        k:=1;
      prev:=cur;
    end;
  write('Max. kol-vo podryad idushih odinakovyh chisel:',max);
end.


Вернуться к обсуждению:
Программа для подсчета наибольшего количества повторения подряд числа!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.01.2012, 01:12
Готовые ответы и решения:

Программа для подсчета количества элементов массива
Помогите пожалуйста составить программу. Задание: Составить программу подсчета количества...

Программа для подсчета количества букв в строке!
Как на Турбо Паскале написать программу для подсчета всех русских букв используемых в написанной...

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

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

В одномерном массиве группу из наибольшего числа подряд идущих нулей заменить на максимальное значение
В одномерном массиве A=(a1, а2, ..., аn) группу из наибольшего числа под- ряд идущих нулей заменить...

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