как сделать прогу по одномерному массиву

[student2009]

Написать программу, заменяющую в массиве А[1..10] элементы с нечетным индексом на -1, с четным индексом на 0. Вывести исходный и измененный массив на экран.
заранее благодарен!!!

[Gongled]

Так, что ли?

program pr;
uses CRT;
const
n = 10;
var
a : array[1..n] of integer;
i : integer;
begin
clrscr;
randomize;

for i:=1 to n do
begin
     a[i] := random(10);
     write(a[i]:4);
end;

writeln;
for i:=1 to n do
begin
     if i mod 2=1 then a[i]:=-1
     else a[i]:=0;
     write(a[i]:4);
end;
end.

[student2009]

а почему не так вычисляет?

[Disel]

Конкретней задавай вопрос. Чего не так тебе вычисляет?

[student2009]

получается что четный и нечетный индекс он и на 0 заменяет и на -1

[Disel]

Массив начинается с элемента с индексом 1, следующий элемент с индексом 2, и так далее. Так программа и выводит чередуя -1 и 0.

PS: Вам может надо смотреть на четность\нечетность самих элементов, а не индексов массива?

Тогда будет так:

program pr;
uses CRT;
const
n = 10;
var
a : array[1..n] of integer;
i : integer;
begin
clrscr;
randomize;

for i:=1 to n do
begin
     a[i] := random(10);
     write(a[i]:4);
end;

writeln;
for i:=1 to n do
begin
     if a[i] mod 2=1 then a[i]:=-1
     else a[i]:=0;
     write(a[i]:4);
end;
ReadKey;
end.

[student2009]

а то что он по несколько раз один и тот же элемент берет, это почему?

[Disel]

Компьютеру так захотелось, Вам надо штобы элементы массива вручную вводились?

[student2009]

нет, просто от 1 до10 заменить -1 и 0

[Disel]

Вам уже два варианта предложили, я не пойму что Вы хотите? Сформулируйте правильно вопрос.