Сформировать целочисленный массив из 12 произвольных чисел. Получить новый массив, который отличается от исходного тем, что все элементы исходного массива с четными номерами удвоены, а с нечетными- заменены единицей
Сформировать целочисленный массив из 12 произвольных чисел. Получить новый массив, который отличается от исходного тем, что все элементы исходного массива с четными номерами удвоены, а с нечетными- заменены единицей
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы