Дан массив. Проверить чередуются ли в нем четные и нечетные числа.(Паскаль)
Answers & Comments
Akelvud
Var a:array[1..1000] of longint; n,i,k:longint; begin readln(n); for i:=1 to n do read(a[i]); if odd(a[1]) then k:=1 else k:=2; for i:=2 to n do begin if (odd(a[i]))and(k=1) then begin writeln('No'); halt; end; if (not odd(a[i]))and(k=2) then begin writeln('No'); halt; end; if k=1 then k:=2 else k:=1; end; writeln('Yes'); end.
1 votes Thanks 1
Endok
Var A:array[1..100] of Integer; i,N:integer; b:boolean; begin b:=true; Readln(N); For i:=1 to N do Readln(A[i]); 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 b:=false; If b=true then Writeln('Чередуются') else Writeln('Не чередуются'); end.
Answers & Comments
a:array[1..1000] of longint;
n,i,k:longint;
begin
readln(n);
for i:=1 to n do read(a[i]);
if odd(a[1]) then k:=1 else k:=2;
for i:=2 to n do
begin
if (odd(a[i]))and(k=1) then
begin
writeln('No');
halt;
end;
if (not odd(a[i]))and(k=2) then
begin
writeln('No');
halt;
end;
if k=1 then k:=2 else k:=1;
end;
writeln('Yes');
end.
i,N:integer;
b:boolean;
begin
b:=true;
Readln(N);
For i:=1 to N do
Readln(A[i]);
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
b:=false;
If b=true then
Writeln('Чередуются')
else
Writeln('Не чередуются');
end.