В массиве все четные элементы заменить на их квадраты, а нечетные удвоить.

@drago72 · Регистрация: 10.04.2010

arni · 05.06.2010, 13:59

Сообщение от drago72

В массиве все четные элементы заменить на их квадраты, а нечетные удвоить.

Если на четность проверять индексы, то:

Pascal

for i:=Low(Arr) to High(Arr) do
  if Odd(i) then
    Arr[i]:=Arr[i]*2
  else
    Arr[i]:=Sqr(Arr[i])

Если на четность проверять значения элементов, то:

Pascal

for i:=Low(Arr) to High(Arr) do
  if Odd(Arr[i]) then
    Arr[i]:=Arr[i]*2
  else
    Arr[i]:=Sqr(Arr[i])

@drago72 0 / 0 / 0 Регистрация: 10.04.2010 Сообщений: 26
		1
	В массиве все четные элементы заменить на их квадраты, а нечетные удвоить. 05.06.2010, 13:42. Показов 2779. Ответов 1 Метки нет (Все метки) В массиве все четные элементы заменить на их квадраты, а нечетные удвоить. 0

Опции темы