Ошибки "синий экран" (также называемые ошибками черного экрана или ошибками кода остановки) могут возникать, если из-за серьезной проблемы Windows выключается или неожиданно перезапускится. При этом может появиться сообщение "Windows завершила работу, чтобы предотвратить повреждение компьютера".
Эти ошибки могут быть вызваны как аппаратными, так и с программными ошибками. Если перед возникновением ошибки "синий экран" вы добавили новое оборудование, то завершите работу компьютера, удалите это оборудование и перезапустите компьютер. Если во время перезапуска возникают проблемы, попробуйте запустить компьютер в безопасном режиме. Подробнее см. в статье Параметры запуска Windows (в том числе безопасный режим).
Кроме того, можно попробовать получить последние обновления из Центра обновления Windows, справку из других источников или восстановить Windows до более раннего состояния.
type
Str = record
fio: string;
h: byte;
end;
var
base: array of Str;
i,sum,n,err:integer;
begin
write('Число учеников: '); readln(n);
setlength(base,n);
sum:=0;
writeln('Введите фамилию и рост через "space": ');
for i:=0 to n-1 do
begin
write(i+1:4,'. ');
readln(base[i].fio);
val(copy(base[i].fio,
pos(' ',base[i].fio)+1,
length(base[i].fio)-pos(' ',base[i].fio)),
base[i].h,
err);
delete(base[i].fio,
pos(' ',base[i].fio),
length(base[i].fio));
sum:=sum+base[i].h;
end;
writeln('Средний рост: ',sum/n:4:1);
for i:=0 to n-1 do
if base[i].h<sum/n then
writeln(base[i]);
end.
