Составьте программу вывода на экран таблицы деления на 7.

Var i: integer; k: real; begin for i: =1 to 10 do  begin k: =i/7; writeln(i,'  / 7 = ',k: 0: 5); end; end.если ты об тогда переставь там где к

Длительность не превышает 10 минут, то есть 10*60=600 секунд. для удобства переведём скорость из кбит/сек в кбайт/сек по формуле кбит/8=кбайт 32 кбит/с / 8 = 4 кбайт/с то есть за 1 секунду передаётся 4 кбайт, значит за 600 секунд будет передано 600*4= 2400 кбайт  соглашусь с alviko, вариант 2: за секунду передаётся 32 кбит, то есть 32 000 бит. переводим в байты (делим на 8), получаем 4000 байт/с.  на передачу уходит максимум 600 секунд, то есть за 600 секунд будет передано 4000*600=2  400  000 байт. переведём байты в килобайты (разделим на 1024) 2  400  000 байт / 1024 =  2343,75 кбайт в не сказано, целое ли количество кбайт требуется в ответе. если целое, то ответ  2343 кбайт (округляем в меньшую сторону, т.к.  2344 кбайт за 10 минут мы передать не можем).

Создаешь цикл for , который записывает номера array[ i ].numer;   в отдельный массив . затем массив  прогоняешь массив циклом for и ищешь максимум (не забудь добавить переменную-счетчик что б он выводил не первый максимум, а только тогда, когда пройдет весь массив). затем выведенное число заменяешь на 0   . тебе понадобится еще одна переменная-счетчик, что бы после того как он выведет тебе все номера, он не начал выводить нули.костыльно конечно , но этот способ работает. успехов!