массив [-40;30] константа 10
1.удалить эл-т если в нём есть цифра 1
2.если эл-т состоит из одной цифры или цифры одинаковы (22,33 итд) то вставить перед ним число К с клавы, соответственно при этом мдвинув все эл-ты вправо на 1
3.сделать замену 3х первых и последних эл-тов, сохраняя последовательность
Вобщем 1 и 3 вроде сделал , а 2е НИКАК D: никак не получается нормально присвоить и сдвинуть ((( подскажите или натолкните на мыслю плз
ЗЫ вроде в факе такого не нашёл, я тут первый раз, так что не бейте сапогами плиз
program variant1;
const n=10;
type arr=array[1..n] of integer;
var a:arr;
i,k,t,q:integer;
temp1,temp2,temp3:integer;
begin
begin{'vvod massiva'}
writeln('zapolniaetsia massiv');
for i:=1 to n do
begin
a[i]:=-40+(random(70));
writeln(i,'element =',a[i]);
end;
end;
begin{'ydalenie elementa'}
q:=0;
for i:=1 to n do
if ((a[i] mod 10 = a[i] div 10) or (a[i] div 10 = 0)) then
begin
q:=q+1;
a[i]:=a[i+1];
end;
for i:=1 to n-q do
writeln(a[i]);
end;
readln;
readln;
begin{'vstavka K'}
writeln('vvesti k');
readln(k);
for i:=1 to n do
if ((a[i] mod 10 =1) or (a[i] div 10 =1)) then
begin
i:=t;
for i:=t to n do
a[i+1]:=a[i];
a[t]:=k;
end;
for i:=1 to n do
writeln(a[i]);
end;
readln;
readln;
begin{'perestanovka'}
temp1:=0;
temp2:=0;
temp3:=0;
temp1:=a[n-2];
temp2:=a[n-1];
temp3:=a[n];
a[n-2]:=a[1];
a[n-1]:=a[2];
a[n]:=a[3];
a[1]:=temp1;
a[2]:=temp2;
a[3]:=temp3;
for i:=1 to n do
writeln(i,' element = ',a[i]);
end;
readln;
readln;
end.