Работа с массивами, Паскаль ABC Опции

[Тимур 2]

1) заполнение массивов:Заполните массив, чтобы в нем чередовалось 0 и 1.
2)Преобразование линейного массива:Отсортируйте массив в порядке убывания линейной сортировки.
3)Получение данных о линейном массиве: Определить, есть ли в массиве элементы, равные своему индексу.

[Lapp]

М

Тема переименована (Правила Форума, п.4, и правила раздела Задачи, п.1)

1) заполнение массивов:Заполните массив, чтобы в нем чередовалось 0 и 1.
2)Преобразование линейного массива:Отсортируйте массив в порядке убывания линейной сортировки.
3)Получение данных о линейном массиве: Определить, есть ли в массиве элементы, равные своему индексу.

1)

for i:=1 to n do a[i]:= i mod 2;

2) См. в FAQ, Методы сортировок

3)

const
  n= 100;
var
  yes: boolean;
  i: integer;
  a: array [1..n] of integer;

begin
  for i:=1 to n do a[i]:= Random(100)+1;
  yes:= false;
  for i:=1 to n do yes:= yes or (a[i]=i);
  WriteLn(yes);
  ReadLn
end.