Program NoName;
Var vid,i,n,k,max:integer;
sr:real;
a:array[1..9999] of integer;
Begin
mx:=0;
max:=0;
k:=0;
vid:=0;
sr:=0;
Read (n);
For i:=1 to n do
Begin
Writeln(a[i] :3);
max:=a[1];
If a[i] > max then
max:=a[i];
If a[i] < 0 then
Begin
vid:=vid + a[i];
k:=k+1;
End;
End;
sr:=vid / k;
For i:=1 to n do
Begin
If a[i] < max then
Write (a[i])
Else
Write (sr);
End;
End.
Не могу быть уверенным за правильность, нет возможности проверить
всего 86.
8 не любят, значит любят 78.
54 - квесты, 78-54=24.
62 - симуляторы, 78-62=16.
78-(24+16)=38 с одинаковым удовольствием играют и в квесты, и в симуляторы
Обожаю Python.
n = 0
for i in range(4):
n *= 10**len(str(2**100))
n += 2**100
print(n)
print(n**(1/10))
4000/120*48=1600 кбайт <span>Ответ: 1600 кбайт</span>