Const n=10;
<span>var i,j,k,mx,ind: integer;
</span><span> a: array[1..n] of integer;
</span><span>begin
</span><span> writeln('исходный массив:');
</span><span> randomize;
</span><span> mx:=0;
</span><span> for i:=1 to n do
</span><span> begin
</span><span> a[i]:=random(2*n)-n;
</span><span> write(a[i],' ');
</span><span> if a[i]>mx then
</span><span> begin
</span><span> mx:=a[i];
</span><span> ind:=i;
</span><span> end;
</span><span> end;
</span><span> writeln;
</span><span> for i:=ind+1 to n-1 do
</span><span> for j:=i+1 to n do
</span><span> if a[i]>a[j] then
begin
k:=a[i];
a[i]:=a[j];
a[j]:=k;
end;
</span><span> writeln('новый массив:');
</span><span> for i:=1 to n do write(a[i],' ');
</span><span>end.
</span>исходный массив:
<span>3 7 7 5 5 -2 -8 -9 -8 6
</span><span>новый массив:
</span><span>3 7 -9 -8 -8 -2 5 5 6 7
</span><span>
</span>
Кабельное тв - аналоговое , наушники у телефону аналоговые , кабель vga от монитора
Это, конечно, ужасный вариант с "много Copy", но если надо ...
Program primer4;
var s:string; i,k:integer;
begin
writeln('подсчет количества глухих согласных в тексте');
writeln('введите текст');
readln(s);
k:=0;
for i:=1 to length(s) do
if (copy(s,i,1)='к')or(copy(s,i,1)='п')or(copy(s,i,1)='с')or
(copy(s,i,1)='т')or(copy(s,i,1)='ф')or(copy(s,i,1)='х')or
(copy(s,i,1)='ц')or(copy(s,i,1)='ч')or(copy(s,i,1)='ш')or(copy(s,i,1)='щ')
then k:=k+1;
writeln(k);
end.
Пример:
подсчет количества глухих согласных в тексте
введите текст
подсчет количества глухих согласных в тексте
17
5. 2) и 4)
6.a:=3 b:=6
a:=2*a - b
a:=2*3-6
a:=0
b:=a +22
b:=0+22
b:=22
7. если а>б то s:=a+22
иначе s:=b^2
5 не больше 7 значит s:=7^2
s:=49
8. Цикл тут. 1. 10 больше 2, значит a:=2+3=5 b:=10-1=9 c:=3+1=4
2. 9 больше 5 значит a:=5+4=9 b:=9-1=8 c:=4+1=5
3. 8 не больше 8 значит c:=c*b=5*8=40