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

[Elen]

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

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

[Unconnected]

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;
end.

[Lis]

эмм.. простите, у меня такая же подобная задача, но не пойму, почему ваша программа не запускается, при этом не выдает никакую ошибку..

Сообщение отредактировано: Lis - 28.06.2010 0:38

[Cheburashka]

Программа запускается и работает нормально!
Просто никакого ввода и вывода данных в этом коде нет. Если хотите посмотреть как выполняется программа добавьте в нее основные элементы ввода-вывода. Или воспользуйтесь Debug'ом.
Debug --> Watch. Далее нажимаете клавишу Insert и пишите необходимую переменную.

[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 - 28.06.2010 2:50

[Lis]

спасибо всем большое!