Помогите пожалуйста срочно решить 3 задачи в Паскале! Тема массивы (я их ну никак не понимаю). 1) Выведите все элементы списка с четными индексами (то есть A[0], A[2], A[4], ...). Программа должна быть эффективной и не выполн...
Помогите пожалуйста срочно решить 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: 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.
Не нашли ответ?
Похожие вопросы