Получить последовательность

[Владимир_король]

Помогите пожалуйста!!!

Вот условия задачи:

Даны целые числа а1,..., а50. Получить последовательность
b1,..., b50, которая отличается от исходной тем, что все нечет-
ные члены удвоены.






Спасибо за помощь заранее!!!

[Stilet]

Язык какой? Наработки где?

[Владимир_король]

Язык Delphi.

[Stilet]

 var a,b:array[1..50] of integer;
 i:integer;
begin
 for i:=1 to 50 do a[i]:=random(100);
 for i:=1 to 50 do if i mod 2<>0 then b[i]:=a[i]+a[i] else b[i]:=a[i]
...
end.

Смысл ясен?