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.

Answer 2

Я могу помочь вам с решением задач по Паскалю на тему массивов. Вот примеры кода для каждой из трех задач, которые вы задали:

1) Выведите все элементы списка с четными индексами (то есть A[0], A[2], A[4], ...). Программа должна быть эффективной и не выполнять лишних действий!

program EvenIndex;
var
  A: array[0..9] of integer; // объявляем массив из 10 целых чисел
  i: integer; // объявляем переменную для индекса
begin
  // заполняем массив случайными числами от 1 до 10
  for i := 0 to 9 do
    A[i] := Random(10) + 1;
  // выводим элементы массива с четными индексами
  for i := 0 to 9 do
    if i mod 2 = 0 then // если индекс делится на 2 без остатка, то он четный
      writeln('A[', i, '] = ', A[i]); // выводим элемент и его индекс
end.

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

program EvenElement;
var
  A: array[1..10] of integer; // объявляем массив из 10 целых чисел
  i: integer; // объявляем переменную для индекса
begin
  // заполняем массив случайными числами от 1 до 10
  for i := 1 to 10 do
    A[i] := Random(10) + 1;
  // выводим четные элементы массива
  for i := 1 to 10 do
    if A[i] mod 2 = 0 then // если элемент делится на 2 без остатка, то он четный
      writeln('A[', i, '] = ', A[i]); // выводим элемент и его индекс
end.

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

program GreaterElement;
var
  A: array[1..10] of integer; // объявляем массив из 10 целых чисел
  i: integer; // объявляем переменную для индекса
begin
  // заполняем массив случайными числами от 1 до 10
  for i := 1 to 10 do
    A[i] := Random(10) + 1;
  // выводим элементы массива, которые больше предыдущего
  for i := 2 to 10 do // начинаем с второго элемента, так как у первого нет предыдущего
    if A[i] > A[i-1] then // если элемент больше предыдущего, то выводим его
      writeln('A[', i, '] = ', A[i]); // выводим элемент и его индекс
end.

Надеюсь, что эти примеры помогут вам понять, как работать с массивами в Паскале. Если у вас есть еще вопросы, я рад помочь.