• Вопрос по информатике:

    Написать код программы на языке Pascal.

    Имеется массив A из n произвольных чисел, среди которых есть положительные, отрицательные и равные нулю. Найти номера первых двух рядом стоящих одинаковых элементов в массиве. Так, если A={2,6,4,4,2,5,5,4}, результат: 3 и 4

    • Автор:

      jamiereid
  • program pr;

    const n = 10;

    var

    A:array[1..n] of integer;

    i:integer;

    begin

    for i:=1 to n do readln(A[i]);

    for i:=1 to (n-1) do

    begin

    if A[i]=A[i+1] then begin

    writeln(i,' и ',i+1);

    break;

    end;

    end;

    end.

    • Отвечал:

      phillip9yrf

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска