8. Дан целочисленный линейный массив. Вставить в него число 100 после m-го элемента, если этот элемент четный. В противном случае – перед ним.
8. Дан целочисленный линейный массив. Вставить в него число 100 после m-го элемента, если этот элемент четный. В противном случае – перед ним.
Гость
Ответ(ы) на вопрос:
Гостьconst n=6;
num=100;
var arr: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]:=num end
else
begin for 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.
Не нашли ответ?
Похожие вопросы