• Помогите пожалуйста срочно решить 3 задачи в Паскале!  Тема массивы (я их ну никак не понимаю). 

    1)

    Выведите все элементы списка с четными индексами (то есть A[0], A[2], A[4], ...).

    Программа должна быть эффективной и не выполнять лишних действий!

    2)

    Выведите все четные элементы списка.

    ВводВывод 1 2 2 3 3 3 4 2 2 4  

    3)

    Дан список чисел. Выведите все элементы списка, которые больше предыдущего элемента.

    ВводВывод 1 5 2 4 3 5 4  

    Заранее благодарю! :)

Ответы 1

  • Вот 1: 

     

    Program Help;Var A : Array[0..1000] of Integer; (* Наш массив *)n : Integer;Begin

     

    (* Какая-то часть кода...*)

    n := 0; (* Присвоить счетчику 0 *)Repeat Write(A[n], ' '); (* Выводим A[n] *) n := n + 2; (* Прибавляем к счетчику 2 *)Until n = 1000; (* Повторить до длинны массива *)Readln;End.

    • Автор:

      wilson48
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years