Var n, k, i, imax, j: integer; a: array[1..100]of integer;
begin randomize; n := random(30) + 10; for i := 1 to n do begin a[i] := Random(30); write(a[i], ' '); end; writeln();
{сортировочка} for i := 1 to n - 1 do begin imax := i; for j := i + 1 to n do if a[j] > a[imax] then imax := j; k := a[i]; a[i] := a[imax]; a[imax] := k; end;
for i := 1 to n do write(a[i], ' ');
k := 0; for i := 2 to n - 1 do if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then k := k + 1;
if a[1] <> a[2] then k := k + 1; if a[n] <> a[n - 1] then k := k + 1;
1.Запрещено самостоятельно разбирать компьютер и все его комплектующие. При возникновении неисправностей необходимо обратитьсяВсе кабели, соединяющие системный блок с другими устройствами, следует вставлять и вынимать только при выключенном компьютере. Исключение составляют USB-устройства: они могут быть подключены к включенному компьютеру;Запрещено самостоятельно устанавливать, удалять, деактивировать и изменять программное обеспечение и сетевые настройки на компьютере.Запрещено подвергать компьютер и периферийные устройства физическим, термическим и химическим воздействиям. (Нельзя сидеть на компьютере, проливать на него чай, кофе, просыпать семечки, ставить у батареи и других нагревательных приборов);При отключении электроэнергии источник бесперебойного питания (ИБП) позволяет компьютеру оставаться в рабочем состоянии от 5 до 20 минут. При отключении электроэнергии в помещении пользователь должен в немедленном порядке провести правильное выключение компьютера.В случае обнаружения неисправности компьютерного оборудования или программного обеспечения, пользователь должен обратиться в службу тех поддержки
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку