Ответ:
Windows 10 or Linux
Объяснение:
Немного не понял ваш вопрос
Program n1;
const n=20;
var a: array[1..n] of integer;
i,m: integer;
begin
writeln('исходный массив:');
for i:=1 to n do
begin
a[i]:=random(15);
write(a[i],' ');
end;
writeln;
write('введите позицию: ');
readln(m);
if (m>=1) and (m<=n) then
begin
a[m]:=10;
writeln('полученный массив:');
for i:=1 to n do write(a[i],' ');
end;
end.
<em>var a, b, c, i, n, m, j :integer; </em>
<em>s, p, q: string;</em>
<em>begin</em>
<em>read (s);</em>
<em>a:=1;for i:=1 to length (s) do </em>
<em> begin </em>
<em> if s[i]=' ' then </em>
<em> begin </em>
<em> b:=i-a; </em>
<em> c:=0; </em>
<em> p:=copy(s,a,b); </em>
<em> a:=i+1; for j:=1 to length (p) do </em>
<em> if (p[j]<>'у') and (p[j]<>'У') and (p[j]<>'е') and (p[j]<>'Е') and (p[j]<>'ы') and (p[j]<>'Ы') and (p[j]<>'а') and (p[j]<>'А') and (p[j]<>'о') and (p[j]<>'О') and (p[j]<>'э') and (p[j]<>'Э') and (p[j]<>'я') and (p[j]<>'Я') and (p[j]<>'и') and (p[j]<>'И') and (p[j]<>'') and (p[j]<>'Ю') then inc(c); </em>
<em> if c>=m then </em>
<em> begin </em>
<em> m:=c; </em>
<em> q:=p; </em>
<em> end; </em>
<em> end; </em>
<em> end; </em>
<em>a:=length (s); </em>
<em>while s[a]<>' ' do </em>
<em> begin </em>
<em> delete (s,a,1); </em>
<em> a:=a-1; </em>
<em> end;</em>
<em> write (s, q); </em>
<em>end.</em><span><em> </em>
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
</span>