Все свои фото, видео, доки т.д. перенеси на диск D, и игры устанавливай на D. Закачки с инета поменяй в настройках браузеров на папку на диске D. Всё, что на Рабочем столе - это диск С. Оставь только ярлыки игр, программ, а все файлы перенеси на D.
Музыкант дружил с Андреевым, сейчас дружит с Ивановым, значит, он не Андреев и не Иванов. Кроме того, Андреев никогда не был знаком с Петровым ,но был дружен с музыкантом, значит ,Петров-тоже не музыкант.Поэтому музыкант Сидоров.
Иванов и Андреев-не солисты хора, так как были на его концерте, поэтому знаком с ним.Значит, Андреев- не художник,Андреев-танцор
Для Ивана остался последний вариант, Иванов-художник
Var a:array [1..10] of integer;
i,count:integer;
s:real;
begin
....//тут ты заполняешь массив как тебе надо
s:=0;
count:=0;
for i:=1 to 10 do begin
if a[i]<>0 then begin //если элемент ненулевой то
s:=s+s; //суммируем их и увеличиваем счетчик на 1
count:=count+1;
end;
end;
s:=s/count;
writeln('Среднее значение=', s:0:0);
end.
X[k] < M
Полностью будет так
M:=X[1];
<span>for k:=2 to N do </span>
if x[k] < M then M := X[k];