Сформировать целочисленный массив из 12 произвольных чисел. Получить новый массив, который

Сформировать целочисленный массив из 12 произвольных чисел. Получить новый массив, который отличается от начального тем, что все элементы исходного массива с четными номерами удвоены, а с нечетными- изменены единицей

Задать свой вопрос
2 ответа
Var a:array[1..12] of integer;
b:integer;
begin
for b:=1 to 12 do
begin
a[b]:=random(201)-100;
write(' a[',b,']=',a[b]);
end;
writeln;
for b:=1 to 12 do
begin
if (b mod 2=0) then a[b]:=2*a[b]
else a[b]:=1;
write(' a[',b,']=',a[b]);
end;
end.
Все работает;) ставь 5 и лучший ответ!выбирай всякую хоть с бегином после элсе хоть без!
Дьячкин Семён
ты че завелся:DDDпосмотри я вложила собственно для тебя без бегина
Лиза Золотковская
да можно и так,как написал ты!)))if (...) then begin ... end else begin ... end, что ли?.. абсолютно ничего не поменяется
Светлана Павлюковец
дык не за что ;) обычный язык, если осознать
Оксана Рекитар
на вкус и цвет...
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт