массивы на паскале

[endryube]

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


дан массив g(10), все элементы, суммы индексов которых нечётны разделить на 10, а остальные поменять на противоположные

[qwerty2009]

что значит поменять на противоположные??

[Naeel Maqsudov]

наверное имеется в виду обращение знака

Код: Выделить всё

for i:=1 to 10 do if odd(i) then g(i):=g(i)/10 else g(i):=-g(i);

Вот и все решение, собственно.
И непонятно, о какой "сумме индексов" идет речь, когда индекс у одномерного массива-то только один.

[Cromartie]

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


дан массив g(10), все элементы, суммы индексов которых нечётны разделить на 10, а остальные поменять на противоположные

Вот что-то типо того что Вы хотели:

Код: Выделить всё

program _1;
var g:array[1..10] of real;
i:integer;
begin
for i:=1 to 10 do
g[i]:=i;
for i:=1 to 10 do
begin
if odd(i) then g[i]:=g[i]/10
else g[i]:=(-g[i]);
end;
for i:=1 to 10 do
writeln('g[',i,'] = ',g[i]:2:2);
readln
end.

P.S. писал на TP 7.1