Вот наработки. Здесь заменён массив на строку, т.к. при операторе ввода массива у меня выскакивает ошибка.
Цитата:
program jfjf;
var
n,k:integer;
m,s:string;
begin
n:=length(m); {dlina stroki(massiva)}
readln(m);
readln(s); {stroka}
REadln(k); {udalenie k simwola}
delete(); {Здесь не могу понять что нужно записать}
writeln(s);
end.
|