Дан целочисленный массив размера N. Преобразовать его, прибавив к нечетным числам последний элемент. Первый и последний элемент массива не изменять.
Дан целочисленный массив размера N. Преобразовать его, прибавив к нечетным числам последний элемент. Первый и последний элемент массива не изменять.
Гость
Ответ(ы) на вопрос:
Гостьvar
i,n:integer;
mas:array[1..999] of integer;
begin
readln(n);
for i:=1 to n do
readln(mas[i]);
for i:=2 to n-1 do
begin
if mas[i] mod 2 <> 0 then
mas[i]:=mas[i]+mas[n];
end;
wriiteln('Новый массив:');
for i:=1 to n do
write(mas[i],' ');
end.
Не нашли ответ?
Похожие вопросы