3 килобайта в секунду * 10 секунд = размер файла = 30 килобайт
30 килобайт это 30720 байт.
30720 байт/512байт = 60 секунд = 1 минута.
Файл будет передаваться 1 минуту при скорости 512байт/сек
Правой кнопкой мыши по рабочему столу - Вид - Снимите галочку с "Выровнять по сетке"
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrInteger(ReadInteger('n='));
var max := a.Max;
var i := a.IndexesOf(t -> t = max).ToArray;
Print('Максимум, равный', max, 'у элемента(-ов) номер');
i.Select(t -> t + 1).Println(', ')
end.
<h2>Пример</h2><h3>n= 15</h3><h3>-13 16 6 -12 -14 4 -12 -12 12 6 -10 2 16 -7 8</h3><h3>Максимум, равный 16 у элемента(-ов) номер 2, 13</h3>
Позволяет рисовать , заливать , искожать , стирать .