// PascalABC.NET 3.3
begin
var n:=ReadInteger('n = ');
var a:=ArrRandom(n,-10,10); a.Println;
a:=a.Shuffle; a.Println;
a:=a.Where(x->x<>a.Max).ToArray;
a.Println;
end.
Пример:
n = 20
8 -9 1 -5 -5 0 9 -4 -7 -4 -3 9 7 -2 4 6 -2 7 -9 -2
-4 -7 -2 8 9 -3 9 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
-4 -7 -2 8 -3 7 4 -9 -2 -2 -4 6 0 1 -5 -5 7 -9
var
s: string;
i: integer;
q: boolean;
begin
readln(s);
for i := 1 to length(s) do
if(s[i] = '?') then q := true;
if(q) then writeln('Вопросительное')
else writeln('Не вопросительное');
end.
Проще будет создать новый
а как восстановить доступ к акку на телефоне не знаю
<span>Вы решили поработать с компьютером, включили его, устроились поудобнее, но вместо приветствия увидели на экране «DISK BOOT FAILURE, INSERT SYSTEM DISK»? Это сообщение означает, что ПК не может загрузить данные с системного диска. Если эта ошибка не связана с поломкой винчестера, её можно исправить. Но иногда она возникает из-за аппаратной неисправности. В таком случае починку компьютера лучше доверить профессионалам </span>