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

@Denis1991Fox · Регистрация: 22.04.2010

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

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

@yanyk1n · 22.04.2010, 22:17

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.

@Denis1991Fox 11 / 5 / 0 Регистрация: 22.04.2010 Сообщений: 55
		1
	Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечетные числа. 22.04.2010, 22:15. Показов 2264. Ответов 1 Метки нет (Все метки) Ребята, всё таже история, погите кто чем сможет... Array26. Дан целочисленный массив размера N. Проверить, чередуются ли в нем четные и нечетные числа. Если чередуются, то вывести 0, если нет, то вывести порядковый номер первого элемента, нарушающего закономерность. 0

Опции темы

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

Решение