Решить 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 заранее ! : )

IdaPosion IdaPosion    2   02.04.2019 08:40    7

Ответы
rinnavinn rinnavinn  28.05.2020 10:46

Вот 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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика