Страница 1 из 1
массивы на паскале
Добавлено: 24 мар 2009, 09:23
endryube
помогите решить на паскале задачу
дан массив g(10), все элементы, суммы индексов которых нечётны разделить на 10, а остальные поменять на противоположные
Re: массивы на паскале
Добавлено: 24 мар 2009, 13:15
qwerty2009
что значит поменять на противоположные??
Re: массивы на паскале
Добавлено: 24 мар 2009, 13:46
Naeel Maqsudov
наверное имеется в виду обращение знака
Код: Выделить всё
for i:=1 to 10 do if odd(i) then g(i):=g(i)/10 else g(i):=-g(i);
Вот и все решение, собственно.
И непонятно, о какой "сумме индексов" идет речь, когда индекс у одномерного массива-то только один.
Re: массивы на паскале
Добавлено: 24 мар 2009, 20:35
Cromartie
endryube писал(а):помогите решить на паскале задачу
дан массив 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