for I : byte := 1 to 10 do a[i] := random(1, 60000);
max := 0; for I : byte := 1 to 10 do if a[i] > max then max := a[i];
writeln(max*3);
end.
Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.
Звуковые и видеофайлы имеют большой информационный объем.Для передачи таких файлов по компьютерным сетям в стандартных цифровых форматах требуются линии связи с высокой пропускной Цифровой стереозвук высокого качества требует скорости передачи данных, равной 1,5 Мбит/с.Цифровое видео телевизионного стандарта требует для передачи изображения скорости передачи данных около 240 Мбит/с.Для уменьшения объемов звуковых и видеофайлов без ощущаемой потери качества используются специальные методы сжатия, основанные на удалении не воспринимаемой человеком звуковой или видеоинформации.
Широкое распространение в Интернете получили технологии передачи потокового звука и видео. Эти технологии передают звуковые и видеофайлы по частям в буфер локального компьютера, что обеспечивает возможность их потокового воспроизведения даже при использовании модемного подключения. Снижение скорости передачи по каналу может приводить к временным пропаданиям звука или пропускам видеокадров.Для прослушивания потокового звука и просмотра потокового видео используются мультимедиа проигрыватели. Во время воспроизведения потокового мультимедиа файла пользователь получает информацию о скорости передачи данных и может настраивать качество воспроизведения. Существует достаточно много радио- и телевизионных станций, которые осуществляют вещание через Интернет. Широкой популярностью пользуются Web-камеры, установленные в самых разных уголках мира (на улицах городов, в музеях, в заповедниках и т. д.) и непрерывно передающие изображение P.s все что нашла
a : array[1..10] of word;
max : word;
begin
randomize;
for I : byte := 1 to 10 do
a[i] := random(1, 60000);
max := 0;
for I : byte := 1 to 10 do
if a[i] > max then max := a[i];
writeln(max*3);
end.
Добавлю и объяснение. Алгоритм заполняет целочисленный массив из десяти элементов случайными числами. Возможны диапазон числе: от 1 до 60000. Затем в следующем цикле выискивается максимальное число, которое выдал генератор случайных чисел. В строке writeln выводится значение этого числа умноженное на три.