Опять массивы..
Как определить, что элемент массива стоит на нечетном месте (т.е. i=1,3,5...)?

Я бы определил это следующим образом:

И после then то что тебе нужно. Элементы будут стоять как раз на нечетном месте.
mod-это остаток от целого деления.

Еще есть ф-я odd(i), она возвращает true, если i - _не_четное.

А вообще, елси тебе надо в массиве работать только с четными/нечетными элементами, чтобы не делать лишних проверок, используй цикл while (например) с шагом 2.

Вот я создаю программу:

 uses crt;
const n=15;
var a:array[1..n] of integer;
 i:word;
Begin
clrscr;
randomize;
For i:=1 to n do begin
 a[i]:=50-random(100);
 write(a[i]:5);
end;
writeln;
For i:=1 to n do begin
  if i mod 2<>0 then a[i]:=sqr(a[i]); { <--- }
write(a[i]:5);
end;
readln;
End.

... и способ forMator'а не прокатывает...

Gl00M, глаза наверх подними:


Теоретически тебе подсказали, что делать. Не получается практически - я перенесу тему в Задачи... НО!!! В следующий раз, если ты на 100% уверен, что после подсказки у тебя ВСЕ РАВНО не получится - создавай ее в "Задачах" сразу!

Хорошо. Перенисе в задачи. а код я выложил для примера, чтобы посмотрели для наглядности...

uses crt;

const
  n = 15;

var
  a: array[1..n] of integer;
  i: word;

begin
  clrscr;
  randomize;
  for i := 1 to n do begin
	a[i]:= 50 - random(100);
	write(a[i]:5);
  end;
  writeln;

  for i := 1 to n do begin
	if odd(i) then a[i] := sqr(a[i]);
	write(a[i]:5);
  end;
  readln;
end.

Что именно не работает?

volvo, спасибо! Я уже решил так же..