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

[Тимур 2]

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

[Тимур 2]

uses crt;
const n=20;
var a:array [1..n] of integer;
i : integer;
begin
randomize;
begin
For i:=1 to n do
if i mod 2=0
a[i]:=1;
a[i]:=0;
write(a[i],'');
end.

а уменя че то не работает((

М

Программный код заключай, пожалуйста, в теги (закрась мышкой и выбери нужный пункт из меню CODE над окном ввода)

[Lapp]

а уменя че то не работает((

Смотри, вот кусок из твоего кода с моими пояснениями:

For i:=1 to n do    // тут нужен begin в конце строки, иначе последняя строка выпадает из цикла
if i mod 2=0   // тут ты потерял then
a[i]:=1;    // ЭТУ и следующую строку надо объединить в одну конструкцию then .. else .. ,
a[i]:=0;    // иначе ЭТА строка будет затирать то, что сделала предыдущая
// а тут нужен end

В результате получится вот так:

For i:=1 to n do begin
  if i mod 2=0 then a[i]:=1 else a[i]:=0;     // что внутри begin/end, сдвигаем вправо на indent
end;

Но тогда получается, что внутри цикла только ОДИН оператор, так что begin и end не нужны. Окончательный вариант:

For i:=1 to n do
  if i mod 2=0 then a[i]:=1 else a[i]:=0;   // окончание оператора цикла тоже сдвигаем

Только я не понял, чем тебе не понравилось мое заполнение. Поясни, пожалуйста.
И еще одно: зачем ты везде пихаешь CRT?? Ты же ее не используешь тут. Для важности, что ли? Глупо . Убери.


Добавлено через 1 мин.

а как 2 задачу решать?

А ты сходил по той ссылке, которую я привел в посте #2?