• 
  • 16 March 2013
  Английский язык
  • Автор: noev

  

  1.Для данного массива установить наибольшую длину последовательности одинаковых элементов, которые расположены рядом.

• 
  • 16 March 2013
  • Ответ оставил: Dav4ever

   

  uses crt;
  var a:array[1..11] of integer;
  i,j,s,k:integer;
  begin
  writeln('Исходный массив: ');
  for i:=1 to 10 do begin
  a[i]:=random(5);
  write(a[i]:4);
  end;
  s:=1; k:=0;
  for i:=1 to 10 do begin
  if a[i]=a[i+1] then s:=s+1;
  if a[i]<>a[i+1] then begin if k<s then k:=s; s:=1; end;
  end;
  writeln;
   writeln('Наибольшая последовательность одинаковых элементов: ',k);write(k);
  end.

   

   Массив состоит из 10 чисел (в описании максимум чисел должен быть на 1 больше, чем по факту, поэтому там 11). Числа в массиве задаются случайно в пределах от нуля до 5 (не включая 5).

   

   

   

   

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (12.10.2024) наш сайт содержит 244792 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы