Var
a:array [1..100] of integer;
i,n,k,mx:integer;
begin
writeln('Введите n:');
readln(n);
mx:=1; k:=0;
writeln('Введите массив:');
for i:=1 to n do
begin
readln(a[i]);
if a[i]>a[mx] then
begin
mx:=i;
k:=0;
end else
if (a[i]=a[mx])and(i<>mx) then k:=k+1;
end;
writeln('Количество элементов массива равных максимальному: ',k);
end.
<span>Основные функции текстовых процессоров. Создание документов; редактирование документов: перемещение по тексту, вставками замена символов, удаление, перемещение, копирование, поиск и замена фрагментов текста, отмена команд; вставка фрагментов других документов или целых документов и т. Д.; Сохранение документов во внешней памяти (на дисках) и чтение из внешней памяти в оперативную; форматирование документов, т. Е. Выполнение преобразований, изменяющих форму (внешний вид) документа: оформление отдельных символов и абзацев, страниц, документа в целом - изменение длины строки, межстрочного расстояния, выравнивания текста, изменение шрифта, его размера, применение различного начертания шрифтов и т. Д.; Печать документов (или их некоторой части); автоматическое составление оглавлений и указателей в документе; создание и форматирование таблиц; внедрение в документ рисунков, формул и др.; Проверка пунктуации и орфографии</span>
Слов- Цезаря зарубили в 45 году до нашей эры. Атлас дорог Москвы
# Код на ruby 2.2.3p173
min = 600*600
for width in 1..600
height = 600.0 / width
perimeter = 2 * (width + height)
if perimeter < min
min = perimeter
p [width, height]
end
end
Последний вывод
[24, 25]
если брать аналитически, то очевидно, что наименьший периметр будет у фигуры наиболее приближенной к кругу. Для прямоугольника это будет квадрат. А его стороны соответственно sqrt(600) = 10*sqrt(6) = 24.49489742783178
