Const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
writeln('Исходный массив:');
a[1]:=random(10);
write(a[1],' ');
for i:=2 to n do
begin
a[i]:=a[i-1]+random(10);
write(a[i],' ');
end;
writeln;
k:=1;
for i:=2 to n do if a[i-1]<>a[i] then k:=k+1;
writeln('k = ',k);
end.
Пример:
Исходный массив:
9 18 19 19 28 32 38 41 41 47
k = 8
var s,x,y:double; объявление 3-х переменных
begin
write('Введите х = ');readln(x); вводим х
write('Введите y = ');readln(y); вводим у
s:=exp(Ln(1-tan(x))*(cos(x)/sin(x)))+cos(x-y); exp(Ln(tan(x))*(cos(x)/sin(x))) - это возведение в степень, в натуральном лог. хранится выражение для возведения в степень, а умножение на нат. лог. означает возведение его в нужную нам степень(если бы там умножалось на 2,то тангенс у нас был в квадрате), а там у нас катангенс, значит возводится все в степень котангенса.
writeln('s = ',s:0:4); вывод результата
end.
Const
n = 20;
var
a: array[1..n] of real;
i, imax, imin: integer;
r, rmax, rmin:real;
begin
Randomize;
Writeln('Элементы массива');
rmax:=-1; { заведомо меньше меньшего }
rmin:=100; { заведомо больше большего }
for i := 1 to n do
begin
r:=Random(10);
a[i]:=r;
Write(r,' ');
if rmax<r then begin rmax:=r; imax:=i end;
if rmin>=r then begin rmin:=r; imin:=i end
end;
Writeln;
{ меняем местами и выводим результат }
a[imax]:=rmin; a[imin]:=rmax;
Writeln('Конечное состояние массива');
for i := 1 to n do Write(a[i],' ');
Writeln
end.
<em><u>Тестовое решение:</u></em>
Элементы массива
4 1 2 8 6 3 7 5 5 1 4 4 3 3 6 8 5 4 7 6
Конечное состояние массива
4 1 2 1 6 3 7 5 5 8 4 4 3 3 6 8 5 4 7 6
<em>Видно, что первая восьмерка поменялась местами с последней единицей.</em>
Единицы измерения информации:
1 байт = 8 бит
<span>1 килобайт (Кб) = 1024 байт</span>
1 мегабайт (Мб) = 1024 килобайт
1 гигабайт (Гб) = 1024 мегабайт
<span>1 терабайт (Тб) = 1024 гигабайт</span>
А кг- b руб
z кг- ? руб
По свойству пропорции
?= (z*b ) /a руб.