1 слева к 6 справа
2 слева к 3 справа
3 слева к 1 справа
Var ar:array[1..10] of integer;
s,i:integer;
begin;
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>0 then s:=s+ar[i];
end;
writeln(s);
end.
Var s,s1,s2:string;
//вариант с несколькими символами в подстроках замены
i,m:integer;
begin;
readln(s);
readln(s1);
readln(s2);
while pos(s1,s)<>0 do //пока подстрока есть в строке выполнять
begin;
m:=pos(s1,s); //сохраняем текущую позицию
delete(s,pos(s1,s),length(s1)); //удаляем ненужную подстроку
Insert(s2,s,m); //вставляем нужную подстроку на её место
end;
writeln(s);
<span>end.</span>
1 мбайт - 1064 килобайт. Значит в 6,5 мбайт 6656 килобайт