Имя ячейки конечно нельзя удалить
Свободного места на диске осталось 5.748.211.712 байт = 5.613.488 Кб = 5481,921 Мб
5481,921/900 ≈ 6 целых архивов можно записать в диск
Ответ 33051 в восьмеричной Система счисления
<span>var
</span>ar:array[1..10] of integer;
sr,i:integer;
begin
randomize;
for i:=1 to 10 do begin
ar[i]:=random(11);
sr:=sr+ar[i];
end;
writeln('Среднее арифметическое равно = ',sr/10);
<span>end.</span>
begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -15, 15);
a.Println;
var i := a.IndexMin;
var m := a[i];
Println('Минимум равен', m);
Print('Номера минимальных элементов:');
a.Indices(p -> p = m).Select(p -> p + 1).Println
end.