Const n = 15;
var a: array[1..n] of integer;
i, j, m: integer;
begin
// генерация и вывод
randomize;
for i := 1 to n do a[i] := Random(19)-8;
for i := 1 to n do write(a[i], ' ');
writeln;
// Сортировка
for i := 1 to n-1 do begin
m := i;
for j := i+1 to n do
if a[j] < a[m] then m := j;
if m <> i then begin
j := a[m];
a[m] := a[i];
a[i] := j;
end;
end;
for i := 1 to n do write(a[i], ' ');
writeln;
// поиск наибольшей разности
m := a[2] - a[1];
for i := 3 to n do
if a[i] - a[i-1] > m then
m := a[i] - a[i-1];
writeln ('разность = ', m);
<span>end.</span>
Основные характеристики:
1) размер экрана
2) широкоформатные мониторы
3) матрица монитора
4) размер подключения монитора
5) яркость и контрастность
6) углы обзора
7) дополнительные опиции
<span>Водитель с автобусом и остановкой.</span>
Автобус с водителем ,пассажиром ,контролером.
Пассажир с автобусом,остановкой ,билетом.
Контролер с билетом и пассажиром.
Var
a:integer;
begin
read(a);
while(a <> 0) do
begin
write(a mod 10);
a := a div 10;
end;
<span>end.</span>
<em />4096 :16=256-кб в секунду,скорость передачи файлов
2048 :16=8 (секунд)
Ответ:8 секунд Кбайт можно передать через другое соеденение
4 мб=4096кб
<u>Жми спасибо</u>,<em>пожалуйста</em>