Вопрос по информатике:
Дан целочисленный массив размера N. Преобразовать его прибавив к нечетным числам последний элемент. Последний элемент массива не изменять. Pascal
- 22.01.2016 04:05
- Информатика
- remove_red_eye 3499
- thumb_up 25
Ответы и объяснения 1
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,10,49); a.Println;
var last:=a[n-1];
for var i:=0 to n-2 do
if Odd(a[i]) then a[i]+=last;
a.Println
end.
Тестовое решение:
n= 15
17 45 34 38 40 30 31 18 30 46 27 39 32 37 30
47 75 34 38 40 30 61 18 30 46 57 69 32 67 30
- 23.01.2016 13:53
- thumb_up 21
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.