Преобразовать массив, прибавив к четным числам первый элемент

@Silenttium · Регистрация: 15.02.2015

Дан целочисленный массив размера N. Преобразовать его, прибавив к четным числам первый элемент. Первый элемент массива не изменять.

Нужно без использования random.
Как можно подробнее.
Спасибо.

@Joy · 16.02.2015, 07:32

Pascal

var
  n:integer;
  x:array of integer;
begin
  write('n=');n:=ReadInteger;
  write('Введите массив:');  x:=Range(1,n).Select((i:integer)->ReadInteger()).ToArray();
  for i:integer:=1 to n-1 do if x[i] mod 2=0 then x[i]:=x[i]+x[0];
  writeln('Преобразованный массив:');  x.Println;
end.

@Silenttium 0 / 0 / 0 Регистрация: 15.02.2015 Сообщений: 2
		1
	Преобразовать массив, прибавив к четным числам первый элемент 15.02.2015, 19:58. Показов 1348. Ответов 1 Метки нет (Все метки) Дан целочисленный массив размера N. Преобразовать его, прибавив к четным числам первый элемент. Первый элемент массива не изменять. Нужно без использования random. Как можно подробнее. Спасибо. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

Преобразовать массив, прибавив к четным числам первый элемент

Решение