8. Дан целочисленный линейный массив. Вставить в него число 100 после m-го элемента, если этот элемент четный. В противном случае – перед ним.
constn=6;
num=100;
vararr:array[1..n] of integer;
m,i,j:integer;
begin
Writeln(zapolnite massiv: );
for i:=1 to n-1 do
Read(arr[i]);
Write(pozitia v massive: );
Read(m);
if (arr[m] mod 2)=0
then
begin
for i:=n-1 downto m+1 do
arr[i+1]:=arr[i];
arr[m+1]:=numend
else
beginfor i:=n-1 downto m do
arr[i+1]:=arr[i];arr[m]:=num
end;
Write( noviy massiw=: );
for i:=1 to n do
Write(arr[i]:5);
writeln;
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
