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

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

27.11.2015, 16:25. Просмотров 889. Ответов 1
Метки нет (Все метки)

Дан массив А, состоящий из n натуральных чисел. Определите максимальное число идущих подряд элементов, равных 1.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.11.2015, 16:25
Ответы с готовыми решениями:

Дан массив А, состоящий из n натуральных чисел. Определите количество элементов, являющихся простыми числами
Дан массив А, состоящий из n натуральных чисел. Определите количество...

Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий делитель элементов массива
1)Дан массив А,состоящий из n натуральных чисел.Найдите наибольший общий...

В одномерном массиве вычислить максимальное число подряд идущих положительных чисел
1). В одномерном массиве вычислить максимальное число подряд идущих...

Дан массив, состоящий из различных целых чисел. Определите второй по величине элемент этого массива
Дан массив, состоящий из различных целых чисел. Определите второй по величине...

Дан массив натуральных чисел. Определить, есть ли в нем идущие подряд одинаковые числа
дан массив натуральных чисел .Определить , есть ли в нем : а) два подряд идущих...

1
vint-81
охотник
1009 / 533 / 650
Регистрация: 29.09.2014
Сообщений: 1,083
27.11.2015, 17:53 2
Лучший ответ Сообщение было отмечено UlyaL как решение

Решение

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
const n=10;ed=1;
type mas=array[1..n]of word;
var a:mas;
procedure init(var x:mas);
var i:byte;
begin
 for i:=1 to n do a[i]:=1+random(4);
end;
procedure outp(x:mas;s:string[2]);
var i:byte;
begin
 writeln(s);
 for i:=1 to n do write(a[i],' ');
 writeln
end;
function max(x:mas;ts:integer):word;
var k,kmax,i:byte;
begin
 kmax:=0;k:=0;i:=1;
 while i<=n do
  begin 
   if x[i]=ts 
    then inc(k)
    else begin if k>kmax then kmax:=k; k:=0 end;
   inc(i)
  end;
 max:=kmax
end;
begin
 init(a);
 outp(a,'A:');
 writeln('максимальное число идущих подряд элементов, равных ',ed,': ',max(a,ed))
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.11.2015, 17:53

Целочисленный массив 1:100, подсчитать наибольшее число идущих в ней подряд одинаковых элементов
И еще одна...Упорядоченный по невозрастанию массив преобразовать в...

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

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


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

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

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