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

[Тимур 2]

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

[Тимур 2]

uses crt;
const n=20;
var
a: array[1..n] of Integer;
i: Integer;

begin

for i := 1 to n do
begin начало тоже самое будет))??

[Lapp]

Заключай код в теги. В посте #16 я подробно описал, как это делать.

начало тоже самое будет))??

ммм..

Короче, вот, смотри, как будет в результате:

const
  n=20;
var
  a: array [1..n] of integer;
  i: integer;

begin
  For i:=1 to n do a[i]= i mod 2;
  for i:=1 to n do write(a[i],' ');
end.

Но в этом коде есть одна ошибка: пропущен один символ. Исправь, и все будет нормально.