Var n, i, min, max, min_i, max_i, tmp: integer; a:array[1..100] of integer; begin readln(n); for i := 1 to n do read(a[i]); min := a[1]; max := a[1]; min_i := 1; {номер минимального} max_i := 1; for i := 2 to n do begin if min > a[i] then begin min := a[i]; min_i := i; end; if max < a[i] then begin max := a[i]; max_i := i; end; end; tmp := a[max_i]; a[max_i] := a[min_i]; a[min_i] := tmp; for i := 1 to n do write(a[i], ' '); end.
Стандартно в окне браузера используется панель для выполнения практически всех операций. Она располагается сверху. На ней есть: 1 Кнопки назад/вперёд для загрузки предыдущей/следующей страницы 2 Адресная строка, совмещенная с полем поиска 3 Кнопка Поиск - открывает окно поискового запроса 4 Кнопка Обновить - для обновления содержимого окна 5 Кнопка Остановить - останавливает загрузку веб - страницы 6 Панель для вкладок (просматриваемых веб - страниц) 7 Кнопка Домой - переход на стартовую страницу 8 Кнопка Настройки
Также есть само окно браузера, в котором работает пользователь, кнопки в верхнем правом углу Свернуть/Закрыть, вкладки веб-страниц (в шапке каждой - название и значок закрытия), значок для создания новых веб-страниц.
a1, a2, a3, mx, mn: real;
begin
writeln('Введите длины отрезков a1, a2, a3');
readln(a1, a2, a3);
mx := max(max(a1, a2), a3);
mn := min(min(a1, a2), a3);
writeln('Наибольший отрезок больше наименьшего в ', mx / mn:0:3, ' раз')
end.
Тестовое решение:
Введите длины отрезков a1, a2, a3
14 11 9.4
Наибольший отрезок больше наименьшего в 1.489 раз