Program primer1;
var
a: array[1..100] of integer;
n, i, max, min: integer;
begin
Randomize;
Write('Введите число элементов от 1 до 100: ');
Readln(n);
max := -32768;
min := 32767;
Writeln('Исходный ряд чисел');
for i := 1 to n do
begin
a[i] := Random(101) - 50;
Write(a[i], ' ');
if max < a[i] then max := a[i]
else if min > a[i] then min := a[i];
end;
Writeln(#13#10, 'Максимум: ', max, ', минимум: ', min);
end.
Тестовое решение:
Введите число элементов от 1 до 100: 24
Исходный ряд чисел
40 -14 -12 13 44 -48 -19 11 -50 -2 -49 -6 45 49 -44 4 -7 -50 -31 18 37 44 30 -2
Максимум: 49, минимум: -50
История Интернета началась с разработки компьютеров в 1950-х годах. Первоначальные концепции сетевых пакетов возникли в нескольких научных лабораториях в США, Великобритании и Франции. Уже в 1960-х годах Министерство обороны США заключило контракты на пакетные сети, включая разработку ARPANET. Первое сообщение через ARPANET было отправлено из лаборатории компьютерных наук профессора Леонарда Клейнрока (Калифорнийский университет в Лос-Анджелесе) на второй сетевой узел в Стэнфордском исследовательском институте[en].
Сети пакетной коммутации, такие как ARPANET, NPL[en], CYCLADES, Merit Network[en], Tymnet[en] и Telenet[en], были разработаны в конце 1960-х и начале 1970-х годов с использованием различных протоколов передачи данных. Сначала в Национальной физической лаборатории Великобритании Дональд Дэвис[en]разработал сеть пакетной коммутации, ставшей испытательной моделью для британских исследований почти на два десятилетия. Создание проекта ARPANET привело к разработке протоколов межсетевого взаимодействия, в которых несколько отдельных сетей могли быть объединены в единую «сеть сетей».
В 1981 году, когда Национальный научный фонд (NSF) финансировал компьютерную сеть CSNET, доступ к ARPANET был расширен. В 1982 году в качестве стандартного сетевого протокола на ARPANET был представлен стек протоколов (TCP/IP). В начале 1980-х годов NSF финансировал создание в нескольких университетах национальных вычислительных центров с суперкомпьютерами, а в 1986 году обеспечил взаимную связность с сетью проекта NSFNET, который также создал сетевой доступ к суперкомпьютернымсайтам из научно-исследовательских и образовательных организаций в Соединённых Штатах. Коммерческие интернет-провайдеры начали появляться в конце 1980-х годов. В 1990 году проект ARPANET был закрыт. Ограниченные частные подключения к частям Интернета от официально коммерческих организаций возникли в нескольких американских городах к концу 1989 и 1990 году[6]; в 1995 году был закрыт проект NSFNET, тем самым были устранены последние ограничения на использование и коммерческое обеспечение связи в Интернете.
В 1980-х годах исследования британского учёного Тима Бернерса-Ли в ЦЕРН в Швейцарии привели к созданию Всемирной паутины путём соединения гипертекстовых документов в информационную систему, доступную из любого узла сети. Начиная с середины 1990-х годов Интернет имеет кардинальное влияние на культуру, торговлю и технологии, в том числе за счёт распространения практически мгновенного общения через электронную почту, мгновенного обмена сообщениями, телефонной связи по интернет-протоколу, телефонных звонков, видеосвязи, а также Всемирной паутины с дискуссионными форумами, блогами, социальными сетямии интернет-магазинами.
Исследовательские и образовательные сообщества продолжают использовать и развивать передовые сети, такие как сверхскоростной сетевой сервис Backbone[en], Интернет2 и National LambdaRail[en]. Всё большее количество информации передаётся на высоких скоростях по оптоволоконным сетям, работающим со скоростью 1 Гбит/с, 10 Гбит/с и выше. Захват Интернетом сферы глобальной связи был практически моментальным по историческим меркам: в 1993 году он передавал лишь 1 % информации, проходящей через двусторонние телекоммуникационные сети, 51 % в 2000 и более чем 97 % дистанционной информации в 2007 году. В настоящее время Интернет продолжает развиваться, чему способствует всё большее количество информации в режиме онлайн, сетевой торговли, развлечений и социальных сетей.Но на самом деле первый интернет появился ещё в СССР, тогда и был создан первый советский домен .su, а именно в 1991 году. Тогда ещё не было браузеров, сетью пользовались в основном технари, а именно с появлением первого браузера WorldWideWeb интернет стал красочным и наглядным.
Var
i, sum, j: integer;
begin
j:=1;
sum:=0;
WHILE j<15 DO
begin
sum:=sum+(j*j*j);
j:=j+2;
end;
write(sum);
end.
Program n1;
type z= array of integer;
var a:z;
d,n,i,j,x: integer;
begin
n:=0;
while true do
begin
readln(d);
if d=0 then break;
n:=n+1;
setlength(a,n);
a[n-1]:=d;
end;
for i:=0 to n-2 do
for j:=i+1 to n-1 do
if a[i]<a[j] then begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
writeln(a[1]);
end.