массивы, Даны целые числа a1, …, a50. Получить последовательность b1, ..., b50, Опции

[Elen]

Приветик всем! Помогите пожалуйста!
задачка на тему массивы.

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

[Lis]

эм. если не трудно подскажите что дописать надо, а то я в паскале как то не оч..

[RathaR]

эм. если не трудно подскажите что дописать надо, а то я в паскале как то не оч..

const n=50;
var mas1,mas2:array [1..n] of byte;
    i:byte;
begin
  for i:=1 to n do begin
    mas1[i]:=random(9)+1;
    if odd(mas1[i]) then mas2[i]:=mas1[i]*2 else mas2[i]:=mas1[i];
  end;
 for i:=1 to n do write(mas2[I],' ');
readln;
end.

Сообщение отредактировано: RathaR - 27.06.2010 22:50