Помогите пожалуйста срочно решить 3 задачи в Паскале! Тема ...
Помогите пожалуйста срочно решить 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 Заранее благодарю! :)
Есть ответ
17.12.2022
434
Ответ
Вот 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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
