Заполните пропуски в программе, которая заполняет массив a[1..15]случайными числами в диапазоне от -10 до 10, выводит на экран исходный массив, затем преобразовывает его, прибавляя к четным элементам массива, а к нечетным - последний. Первый и последний элементы не изменять. program preobrazovanie_2; var a:array[1..___] of ___; i:integer; begin for i:=___ to ___ do a[i]:=random(___)+___; writeln('Исходный массив:'); for i:=___ to ___ do write(a[i], ' '); writeln; for i:=___ to ___ do if a[i] ___ then a[i]:=____ else a[i]:=____; writeln('Преобразованный массив:'); for i:=___ to ___ do write(a[i], ' '); end.
program preobrazovanie_2; var a:array[1..15] of integer; i:integer; begin randomize; for i:=1 to 15 do a[i]:=random(21)-10; writeln('Исходный массив:'); for i:=1 to 15 do write(a[i], ' '); writeln; for i:=2 to 14 do if a[i] mod 2 = 0 then a[i]:=a[i]+2 else a[i]:=a[15]; writeln('Преобразованный массив:'); for i:=1 to 15 do write(a[i], ' '); end.
program preobrazovanie_2;
var a:array[1..15] of integer;
i:integer;
begin
randomize;
for i:=1 to 15 do
a[i]:=random(21)-10;
writeln('Исходный массив:');
for i:=1 to 15 do
write(a[i], ' ');
writeln;
for i:=2 to 14 do
if a[i] mod 2 = 0
then a[i]:=a[i]+2
else a[i]:=a[15];
writeln('Преобразованный массив:');
for i:=1 to 15 do
write(a[i], ' ');
end.