program raf105;
const
n = 10; //Размер массива
var
a,b: array[1..n] of integer;
i,c: integer;
begin
writeln('Вводите ',n,' чисел по очереди');
for i:=1 to n do
begin
write(i,'. ');
readln(a[i]);
if a[i]-10 = i
then begin
c:= c+1;
b[c]:= a[i];
end;
end;
if c > 0
then begin
write('Новый массив: ');
for i:=1 to c do
write(b[i],' ')
end
else writeln('Элементов превосходящих свой индекс на 10 не найдено.');
end.
PascalABC 3.4.2
var
s:string;
i:longint;
begin
read(s);
for i:=1 to length(s) do
if s[i]='И' then s[i]:='%';
writeln(s);
end.
2)
var
s:string;
l:longint;
begin
read(s);
l:=length(s);
delete(s, (l div 2)+1, l-(l div 2));
writeln(s);
end.