ответ с решением! За решенные задания по отдельности поставлю лайк первому решившему, на копирование ответа буду жаловаться. Если есть вопросы отвечу.

Var
f: array[1..10] of integer;
i,suma,sumb:integer;
begin
randomize;
for i:=1 to 10 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
suma:=0;
sumb:=0;
for i:= 1 to 10 do
if f[i] mod 2 = 0 then
suma:=suma+f[i];
else
sumb:sumb+f[i];
writeln('Сумма четных: ',suma);
writeln('Сумма нечетных: ',sumb);
end.

var
f: array[1..8] of integer;
i,k,sumb:integer;
begin
randomize;
for i:=1 to 8 do
begin f[i]:=random(10)+10;
write(f[i],' ');
end;
k:=0;
sumb:=0;
for i:= 1 to 8 do
if f[i] mod 2 = 0 then
k:=k+1;
else
sumb:sumb+f[i];
writeln('Количество четных: ',k);
writeln('Сумма нечетных: ',sumb);
end.

1.Откройте меню «Выполнить» с комбинации клавиш [Windows] + [R].

В диалоговом окне введите без кавычек слово «desktop» и нажмите [Enter]. Должен отобразиться каталог рабочего стола вашего профиля Windows.

Если в нем присутствуют значки и папки, значит проблема лишь в их отображении.

Если каталог рабочего стола пуст, возможно, все папки и ярлыки были удалены.

2.Щелкните правой кнопкой мыши на пустой области рабочего стола, чтобы открыть контекстное меню.

Перейдите к пункту «Вид» и проверьте, отмечен ли чекбокс «Отображать значки рабочего стола». Если это не так, верните галочку на ее законное место и тогда все вернётся.

3.Попробуйте перезапустить Windows.