Поделитесь своими знаниями, ответьте на вопрос:
по решению проблемы с ПК, при включении ПК чёрный экран ну только на первые мин 8-15, позже перезагрузки все работает, это 100% не оперативка би коз, я не давно сменил матку, проц и Озу. Грешу на моник, кабель и не дай Бог видяху. Провод - dvi-d, видяха - Rx 570 4 gb. Если не включить Пк, но включить моник, он работает без проблем, а при включонном пк картинка есть но моник гаснет. Ну тоесть я даже ярлыки запускать могу.
program raf105;
var fam,pol:array[1..100] of string;
n,i:integer;
begin
write('Введите количество детей: ');
readln(n);
writeln('Вводите фамилии и пол (Заглавной буквой М/Ж)');
for i:=1 to n do
begin
writeln;
write('[',i,'] ','Фамилия: ');
readln(fam[i]);
write(' Пол: ');
readln(pol[i]);
end;
writeln;
writeln('Фамилии девочек начинающиеся на "А" и мальчиков заканчивающиеся на "в"');
for i:=1 to n do
if (fam[i][1]='А') and (pol[i]='Ж') or (fam[i][length(fam[i])]='в') and (pol[i]='М')
then writeln(fam[i]);
end.
Язык программирования PascalABC