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

Question

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

Answer 1

Все работает;) ставь 5 и лучший ответ!выбирай любую хоть с бегином после элсе хоть без!

---

---

Comments

ты че завелся:DDDпосмотри я вложила лично для тебя без бегина

---

да можно и так,как написал ты!)))if (...) then begin ... end else begin ... end, что ли?.. абсолютно ничего не изменится

---

дык не за что ;) нормальный язык, если понять

---

на вкус и цвет...

Answer 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.