поменяй зарядку или телефон, либо попробуй перезагрузить
Не на том сайте ты решил об этом попросить, но раз уж спросил то я постараюсь внятно ответить.
Тебе нужно вставить загрузочную флешку с любимым из windows, но лучше всего windows 7, загрузиться с неё, и дождаться когда появится кнопка "Установить". В самом низу у тебя будет "восстановления системы". Нажимаешь на неё, у тебя появиться окошко с двумя галочками. Выбиваешь первый и нажимаешь Далее, после чего выбираешь Командная строка, где вводишь такие команды
bootrec /fixmbr
bootrec /fixboot
И после этого перезагружаешь компьютер и всё должно работать. Если будут какие то вопросы можешь написать мне в лс, постараюсь
1.
var
A: array [1..10] of integer;
max, i: integer;
begin
for i:=1 to 10 do // заполнение массива
A[i] := random(100) - 50;
max := -51;
for i:=1 to 10 do // обработка массива
if (A[i] < 0) and (A[i] > max) then
max := A[i];
writeln(max);
end.
2.
var
A: array [1..1000] of integer;
kol, i, N: integer;
begin
readln(N);
for i:=1 to N do // заполнение массива
A[i] := random(100) - 50;
for i:=1 to N do // обработка массива
if A[i] mod 2 = 0 then
inc(kol);
writeln(kol);
end.
Жди пока выключится, и дай ему отдахнуть. Только потом попробуй включить (проблема может быть и из-за зарядки)