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

@kunkka1 · Регистрация: 24.09.2013

Даны целые числе a₁,...,a₅₀. Получить последовательность b₁,...,b₅₀, что отличается от исходной тем, что все нечетные члены удвоены.
Прошу помочь пож.!

@wowgamr · 28.11.2013, 20:54

Pascal

program qq;
var
  a: array [1..50] of integer;
  b: array [1..50] of integer;
  i: integer;
begin
z:=0;
for i:=1 to 50 do
begin
readln (a[i]);
if a[i] mod 2 = 1 then
b[i]:=a[i]*2
else
b[i]:=a[i];
end;
for i:=1 to 50 do
writeln  (b[i]);
end.

@kunkka1 4 / 4 / 0 Регистрация: 24.09.2013 Сообщений: 147
		1
	Получить последовательность, где все нечетные члены удвоены 28.11.2013, 20:18. Показов 1186. Ответов 1 Метки нет (Все метки) Даны целые числе a₁,...,a₅₀. Получить последовательность b₁,...,b₅₀, что отличается от исходной тем, что все нечетные члены удвоены. Прошу помочь пож.! __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы

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

Решение