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

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

+2
Ответы (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.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дан массив. Проверить чередуются ли в нем четные и нечетные числа. (Паскаль) ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Хотя бы 3-4 задачи! 1) Дан одномерный целочисленный массив размерностью N. Найдите количество элементов, которые кратны 3 (5). 2) Дан одномерный целочисленный массив А, состоящий из N элементов. Найти сумму всех четных элементов массива.
Ответы (1)
1) Дан массив из n элементов. Найти номер наименьшего элемента массива. 2) Дан массив из n элементов. Упорядочить массив по возрастанию. 3) Дан массив из n элементов. Упорядочить массив по убыванию.
Ответы (1)
1) дан массив из N элементов. определить сумму тех, которые четны и положительны. 2) Дан массив из n элементов. В нем четные числа заменить на 0, нечетные на - 1, вывести на экран монитора содержимое массива до обработки и после обработки.
Ответы (1)
Ввести слово и число раз (Ввод; паскаль, 3). Вывести это слово так: паскаль паскаль паскаль паскаль паскаль паскаль
Ответы (1)
1. Дан массив. Напечатать: а) Все четные 1. Дан массив. Напечатать: а) Все четные элементы б) Все элементы, оканчивающиеся нулем. 2. В массиве хранится информация о количестве осадков, выпавших каждый день января.
Ответы (1)