если ты хоть немного разбираешься в пк, то читай, иначе относи к мастеру.
проблема имеет несколько источников:
1) оперативная память, её контакты могли окислиться и из-за этого она не даёт работать компьютеру. попробуй достать её( перед этим обязательно вытащи провод из источника ! )
и осмотреть контакты, если это так и там имеется что-то подгоревшее или не такого цвета как все, то пройдись ластиком, но не сильно.
2) сбой в работе bios, есть круглая батарейка в материнской плате, осторожно вытащи её на пять минут и вставь обратно. попробуй перезагрузить конденсаторы. для этого в компьютере без питания нажми кнопку включения, потом попробуй включить компьютер.
3) сгорела видеокарта или материнская плата.
самый печальный исход, замена комплектующих.
(я написал далеко не все, но это самые распространённые источники проблемы)
главное меню расположено в верхней строке окна заключает в себе все возможности программы, рассортированные по более или менее однотипным . для входа в меню необходимо либо воспользоваться мышью, либо нажать f10, затем перемещаться по меню с клавиш курсором. покинуть меню можно, нажав клавишу esc.
панели – две равноправные таблицы, занимающие основную часть окна. внутри панелей может отображаться различная информация. одна из панелей является активной (на ней находится курсор и заголовок панели подсвечен), другая панель – пассивная. смена активное панели достигается нажатием tab или щелчком мыши в любой части панели. при этом курсор перемещается с одной панели на другуюкомандная строкаменю функциональных клавиш запуск команд ms-dos из командной строкипросмотр содержимого файларедактирование файла встроенным редактором.копирование файла или каталогапереименование и перенос файла или каталога.создание нового каталогаудаление файлов и каталоговработа с группами файлов и каталогов
var a:array[1..1500] of integer;
i,j,n:integer;
begin
readln(n);
randomize;
for i:=1 to n do begin
a[i]:=random(1001);
end;
n:=n-1;
for i:=1 to n do begin
if a[i]=a[n+1] then begin
write(i,' ')
end
end;
readln
end.