Дан целочисленный массив размераN. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести0, если нет, то вывести поряд

@Ejik122 · Регистрация: 27.05.2010

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

Дан целочисленный массив размера*N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести*0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность.

@Shelovek · 27.05.2010, 21:15

тебе на одномерный?

@Ejik122 · 27.05.2010, 21:22 **[ТС]**

да, одномерный

@Elstan · 27.05.2010, 21:25

Pascal

uses crt;
var m:array[1..100]of integer;
i,n,k:integer;
 
begin
 clrscr;
 write('N-> ');
 readln;
 write('Введите массив -> ');
 for i:=1 to n do read(m[i]);
 readln;
 k:=0;
 for i:=1 to n-1 do if not((a[i] mod 2 = 0) and (a[i+1] mod 2 =1) or (a[i] mod 2 = 1) and (a[i+1] mod 2 =0)) then
 begin
  k:=i+1;
  break;
 end;
 writeln(k);
 readln;
end.

@Ejik122 · 27.05.2010, 21:28 **[ТС]**

можно ещё блок схему?

@Elstan · 27.05.2010, 21:32

Держи

@Ejik122 1 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 10
		1
	Дан целочисленный массив размераN. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести0, если нет, то вывести поряд 27.05.2010, 21:06. Показов 8335. Ответов 5 Метки нет (Все метки) Дан целочисленный массив размераN. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность. 0

@Shelovek 66 / 66 / 33 Регистрация: 25.05.2010 Сообщений: 176
	27.05.2010, 21:15	2
	тебе на одномерный? 0

@Ejik122 1 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 10
	27.05.2010, 21:22 [ТС]	3
	да, одномерный 0

@Ejik122 1 / 0 / 0 Регистрация: 27.05.2010 Сообщений: 10
	27.05.2010, 21:28 [ТС]	5
	можно ещё блок схему? 0

Опции темы