Объяснение:
// Example program
#include <iostream>
#include <string>
int main()
{
int k[30];
for(int i = 0; i < 30; i ++) //заполняем случайными числами
k[i] = rand();
int min_sum = 999999999;
int num1, num2;
for(int i = 0; i < (30 - 1); i ++) //цикл поиска, i меняется от начала
//до предпоследнего элемента, чтобы не выйти
//за пределы при обращении к i + 1 элементу
{
int sum = k[i] + k[i+1];//очередная сумма
if(sum < min_sum) //сравниваем ее с текущим минимумом
{//если она меньше, то
min_sum = sum;//обновляем текущую сумму
num1 = i; num2 = i + 1;//обновляем номер
}
}
//на выходе из цикла в min_sum и num1 и num2 имеем самые минимальные номера
std::cout << "min_sum = " << min_sum << " nomer1 = " << num1 <<" nomer2 = " << num2;
}
Итак, историю Интернета можно разделить на несколько этапов.
1961 – 1970 гᴦ. Разработаны технические принципы компьютерной сети, введен в действие Arpanet.
1971 – 1980 гᴦ. Придуман знак @. Написана первая программа для электронной почты. Осуществлена первая международная связь по электронной почте между Англией и Норвегией. Число узлов Arpanet возросло до нескольких десятков, проложены специальные кабельные линии, соединяющие некоторые узлы, начинает функционировать электронная почта͵ о результатах работ ученые докладывают на международных научных конференциях.
1981 – 1990 гᴦ. Принят протокол TCP/ IP, введена система доменных имен Domain Name System (DNS).
Сформирована сеть Интернет.
1991–2000 гᴦ. Ethernet стал самой распространенной технологией локальной компьютерной сети. Интернет объединил локальные сети и стал средством массовой коммуникации. Произошло сращивание сотовой связи и Интернета. Телетехнологии встроены в глобальную сеть – телемосты, видеоконференции. Услуга Интернет и электронной почты встроена в мобильные телефоны.
i,s,n:integer;
begin
write ('Введите размер массива n= ') ; readln(n);
for i:=1 to n do a[i] :=random(50)-30;
for i:=1 to n do write(a[i],' ');
writeln;
s:=0;
for i:= 1 to n do
if a[i] mod 2 <>0 then s :=s+a[i];
writeln('Сумма нечетных элементов массива = ', s);
end.
2.
var a:array[1..1000] of integer;
i,max,min,n:integer;
begin
write ('Введите размер массива n= ') ; readln(n);
for i:=1 to n do a[i] :=random(50)-30;
for i:=1 to n do write(a[i],' ');
writeln;
max:=-32768; min:=32767;
for i:= 1 to n do
begin
if a[i] >max then max:=a[i];
if a[i] <min then min:=a[i];
end;
writeln('Максимальный элемент массива = ', max);
writeln('Минимальный элемент массива = ', min);
end.