Заполните пропуски в программе, которая заполняет массив 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.
Ответы
Ответ дал:
0
program preobrazovanie_2;
var a:array[1..15] of integer;
i:integer;
begin
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]+a[1]
else a[i]:=a[i]+a[15];
writeln('Преобразованный массив:');
for i:= 1 to 15 do
write(a[i], ' ');
end.
Вас заинтересует
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад