var
a:array[1..10]of extended;
i,otr,m,pol:integer;
begin
for i:=1 to 10 do
begin
read(a[i]);
if a[i]<0 then otr:=a[i]+otr;
if a[i]>0 then pol:=pol+1;
end;
m:=(pol/otr);
write(m);
end.
<span>Program a1; </span>
<span>var y: array[1..14] of integer; k,s1,s2: byte; minY,maxY,m: integer; </span>
<span>begin </span>
<span>writeln('Vvedite massiv Y: '); {просим ввести массив} </span>
<span>for k:=1 to 14 do read(y[k]); {записываем массив} </span>
<span>s1:=0; s2:=0; {счётчики на 0} </span>
<span>minY:=y[1]; {присваиваем первому значению минимум...} </span>
<span>for k:=2 to 14 do begin if y[k] < minY then degin minY:=y[k]; s1:=s1+1; end; {если есть меньше, то присваиваем} </span>
<span>maxY:=y[1]; {присваиваем второму значению максимум...> <} </span>
<span>for k:=2 to 14 do begin if y[k] > maxY then degin maxY:=y[k]; s2:=s2+1; end; {если есть больше, то присваиваем} </span>
<span>m:=y[s1]; {используя переменную m меняем местами элементы} </span>
<span>y[s1]:=y[s2]; </span>
<span>y[s2]:=m; </span>
<span>writeln('Novyi massiv: '); </span>
<span>for k:=1 to 14 do write(y[k],' '); {выводим новый массив} </span>
<span>readln </span>
<span>end.</span>
Сходства:
Одинаковый размер (диаметр 120 мм, толщина 1.6 мм), имеет тот же радужный вид. Лазерный принцип записи.
Различия:
CD-диск использует инфрокрасный лазер (длина волны в возухе 780 нм), а DVD-диск использует красный лазер (650 нм) (меньшая длина волны позволяет более плотнее размещать информацию на DVD-дисках).
Ёмкость DVD (4.7 ГБ) сильно различается от ёмкости CD (700 МБ)
var
n: <em>integer </em>:= 50;
begin
if (n mod 2 = 0) then
dec(n);
while (n >= 1) do
begin
writeln(n);
n -= 2;
end;
<span>end.</span>
