Проверить, строго ли чередуются нули и единицы в массиве

@NPC228 · Регистрация: 22.10.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте, прошу помощи в решении задачи. 2 день пытаюсь решить, все тщетно.

1. Задан одномерный массив А [1 : М], состоящий только из нулей и единиц. Проверить, строго ли они чередуются.

@Joy · 22.10.2014, 16:56

NPC228, так это 3 задачи

Добавлено через 11 минут
п.1.

Pascal

const n=10;
var
  a:array[1..n] of byte;
  i,m:integer;
  ok:boolean;
begin
  ok:=true;
  repeat
    write('m=');
    readln(m);
  until (m>0) and (m<=n);
  write('Введите массив ');
  for i:=1 to m do begin
    read(a[i]);
    if (i>1) and (a[i]=a[i-1]) then ok:=false;
  end;
  if m=1 then writeln('Всего 1 элемент в массиве') else
  if ok then writeln('Строго') else writeln('Не строго');
end.

@NPC228 0 / 0 / 0 Регистрация: 22.10.2014 Сообщений: 3
		1
	Проверить, строго ли чередуются нули и единицы в массиве 22.10.2014, 15:53. Показов 3080. Ответов 1 Метки нет (Все метки) Здравствуйте, прошу помощи в решении задачи. 2 день пытаюсь решить, все тщетно. 1. Задан одномерный массив А [1 : М], состоящий только из нулей и единиц. Проверить, строго ли они чередуются. 0

Опции темы

Проверить, строго ли чередуются нули и единицы в массиве

Решение