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

Question

Помогите пожалуйста срочно решить 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

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

Answer 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.