Question

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

Answer 1

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.

Answer 2

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