Задать вопрос
6 августа, 02:41

Дан массив. Проверить чередуются ли в нем четные и нечетные числа. (Паскаль)

+4
Ответы (2)
  1. 6 августа, 02:56
    0
    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.
  2. 6 августа, 05:33
    0
    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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив. Проверить чередуются ли в нем четные и нечетные числа. (Паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы