Разбираешься в компьютерах и играх, но не разбираешься в программирование. Я могу сделать вывод, что ты играл на протяжении 6 лет в игры и собирал себе компьютер для игр
Думаю ты не разбираешься во внутренностях компьютера.
Экзамены перенесли на август, мои тебе советы:
Готовься к ЕГЭ
Смотри видео уроки по профильной математике ЕГЭ от Павла Маслова (Ютуб)
Физику смотри также на Ютубе (Пенкин)
Также могу тебе посоветовать решать каждый день по 15 вариаций заданий, которые ты например выучил решения первого задания матана, решай их как можно больше)
Сдай ЕГЭ
Без него ничего не выйдет
Const
n=6;
Var
f,h:text;
i,maxi:integer;
ar:array[1..n] of real;
begin
ar[6]:=real.MinValue;
assign(f,'text.txt');
rewrite(f);
for i:=1 to n-1 do
begin
readln(ar[i]);
if ar[i]>ar[6] then
begin
ar[6]:=ar[i];
maxi:=i;
end;
end;
ar[maxi]:=ar[maxi]/2;
writeln('F:');
for i:=1 to n do
begin
write(f,ar[i],' ');
write(ar[i],' ');
end;
close(f);
writeln;
i:=0;
writeln('H:');
assign(h,'text1.txt');
rewrite(h);
while i<n do
begin
i:=i+2;
write(h,ar[i],' ');
write(ar[i]:4);
end;
close(h);
end.
Пример ввода:
1
2
3
4
5
Пример вывода:
F:
1 2 3 4 2.5 5
H:
2 4 5