Дана последовательность из n различных чисел. найти сумму чисел этой последовательности, расположенных между максимальным и минимальным значениями ( в сумму включить оба этих числа) в visual basic.
Const n=10; var a:array[1..n]of integer; min,max,i,s:integer; begin for i:=1 to n do read(a[i]);{вводим последовательность через пробел, последний элемент ENTER} min:=1;max:=1; {поиск индекса мин и макс} for i:=2 to n do begin if a[i]<a[min]then min:=i; if a[i]>a[max]then max:=i; end; {Если индекс мин меньше чем индекс макс то} if max>min then for i:=min to max do s:=s+a[i] else {если индекс макс меньше чем индекс мин} for i:=max to min do s:=s+a[i]; writeln(' S= ',s); end.
Розы впервые начали выращивать в Древнем Риме, хотя основное назначение садов того времени было выращивание полезных растений (плодовых, овощных, пряных и лекарственных), но в произведениях древнеримских писателей встречается описание около 10 сортов роз. На великолепной мозаике из Помпеи, хранящейся в Неаполитанском музее, можно увидеть и дамасскую розу, родиной которой несомненно является восток и уже оттуда она попала в сады Южной Италии. Во времена Каролингов в садах декоративные растения выращивались прежде всего с лекарственной целью, хотя, несомненно, обращалось внимание и на их красоту. Для венков и других украшений собирались полевые цветы. И только кусты роз удостаивались особого внимания и выращивались в садах.Существующее в настоящее время огромное разнообразие сортов роз образовано путём скрещивания и селекционного отбора нескольких сортов дикого шиповника. История садовых роз началась в конце XVIII-го — начале XIX ого веков, когда в Европу (сначала в Англию, а затем во Францию) из юго-восточной Азии были завезены виды вечнозелёных теплолюбивых роз со своеобразным ароматом лепестков, напоминающим запах чая. Эти розы обладали новыми декоративными качествами: кожистыми блестящими листьями, особым благородством формы бутонов и цветка и особенно важным свойством — ремонтантностью, то есть к продолжительному многократному цветению. Усилия селекционеров были направлены на создание новых сортов, которые бы совмещали в себе ремонтантность азиатских и морозостойкость европейских роз. Долгое время этого достичь не удавалась и лишь в начале XIX-го века удалось преодолеть нескрещиваемость этих двух групп роз. Первое упоминание о выращивании роз в России относится к началу XVI века. Предполагается, что в Россию они попали через балканские славянские племена. Массовое распространение получили только при Екатерине II. К концу XIX века розы начали выращивать на всей Европейской части России.
Симеон Полоцкий- великий белорусский просветитель Симеон Полоцкий является одним из выдающихся деятелей не только белоруссой и русской ,но и более таго, славянской культуры в целом. Он вошел в иссторию как монах ,общественный и церковный деятель ,богослов ,педагог и воспитатель ,поэт и писатель и переводчик.Прозвание "Полоцкий" получил по месту рождения.Он стал преподавателем в Полоцкой Богоявленской братской школы.После таго,как переехал в Россию в 1664 году(из-за опасностей которые его подвергалось) ,он создал первую "латинскую" школу при Заиконо монастыре ,типографию. А так же он был первым придворным поэтам российских царей,воспитывал детей Алексея Михайловича ,в том числе будущего первого императора России Петра1. Симеон Полоцкий писал свои произведения на старобелорусском,польском и латинском языках. До нас дошли два больших сборника стихотворения его :"Вертоград многоцветный","Рифмологион ,или Стихослов".Первый сборник называют энциклопедией ,а второй сборник были включены драматические пьесы,которые ставились в придворных театрах Москвы . Свою библиотеку Симеон Полоцкий завещал монатырям в Полоцке,Москве,Киеве.
n=10;
var
a:array[1..n]of integer;
min,max,i,s:integer;
begin
for i:=1 to n do
read(a[i]);{вводим последовательность через пробел, последний элемент ENTER}
min:=1;max:=1;
{поиск индекса мин и макс}
for i:=2 to n do
begin
if a[i]<a[min]then
min:=i;
if a[i]>a[max]then
max:=i;
end;
{Если индекс мин меньше чем индекс макс то}
if max>min then
for i:=min to max do
s:=s+a[i]
else {если индекс макс меньше чем индекс мин}
for i:=max to min do
s:=s+a[i];
writeln(' S= ',s);
end.