Приветик всем! Помогите пожалуйста! задачка на тему массивы.
Даны целые числа a1, …, a50. Получить последовательность b1, ..., b50, которая отличается от исходной тем, что все нечетные члены удвоены.
Unconnected
27.06.2010 16:08
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
27.06.2010 20:37
эмм.. простите, у меня такая же подобная задача, но не пойму, почему ваша программа не запускается, при этом не выдает никакую ошибку..
Cheburashka
27.06.2010 20:55
Программа запускается и работает нормально! Просто никакого ввода и вывода данных в этом коде нет. Если хотите посмотреть как выполняется программа добавьте в нее основные элементы ввода-вывода. Или воспользуйтесь Debug'ом. Debug --> Watch. Далее нажимаете клавишу Insert и пишите необходимую переменную.
Lis
27.06.2010 21:56
эм. если не трудно подскажите что дописать надо, а то я в паскале как то не оч..
RathaR
27.06.2010 22:50
Цитата(Lis @ 27.06.2010 21:56)
эм. если не трудно подскажите что дописать надо, а то я в паскале как то не оч..
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.
Lis
27.06.2010 23:13
спасибо всем большое!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.