В матрице 6 на 6 заменить четные элементы, стоящие выше и ниже главной диагонали нулями​

Изменения в жизни общества, связанные с бурным развитием информационной сферы, привели к появлению концепции информационного общества.

Концепция информационного общества

Термин « информационное общество» ввел профессор Токийского технологического института. Ю. Хаяши еще в 1969 году, когда японскому правительству были представлены отчёты «Японское информационное общество: темы и подходы», а в 1971 году — «План информационного общества».

Сегодня термин «информационное общество» прочно занял свое место в лексиконе политических деятелей, экономистов, преподавателей и ученых. В большинстве случаев это понятие ассоциируется с уровнем развитием информационных технологий и средств телекоммуникации..

Три года назад, 27 марта 2006 года генеральная Ассамблея ООН провозгласила 17 мая Международным днем информационного общества

Что же такое информационное общество? В чем его особенность? Каковы проблемы? Существуют ли пути их преодоления? На эти вопросы я постараюсь ответить в своей работе.

На мой взгляд, концепция информационного общества еще будет дорабатываться, поскольку изменяется и расширяется информационная сфера. На сегодняшний день так определяют информационное общество:

Информационное общество - новая историческая фаза развития цивилизации, в которой главными продуктами производства являются информация и знания. Отличительными чертами информационного общества являются:

- увеличение роли информации и знаний в жизни общества;

- возрастание доли информационных коммуникаций, продуктов и услуг в валовом внутреннем продукте;

- создание глобального информационного пространства, обеспечивающего эффективное информационное взаимодействие людей, их доступ к мировым информационным ресурсам и удовлетворение их потребностей в информационных продуктах и услугах.

Var A:array[1..10000] of integer;
i,NOD,NOK,k,N:integer;
Begin
Write('N = ');ReadLn(N);
Write('Введите числа (',N,' шт.): ');
For i:= 1 to N do
    Read(A[i]);
{Поиск НОК}
NOK:=abs(A[1]);
For i:= 2 to N do
    if abs(A[i])<NOK then NOK:=abs(A[i]);
if NOK = 0 then NOK:=1;
Repeat
k:=0;
For i:= 1 to N do
    if A[i] mod NOK = 0 then k:=k+1;
NOK:=NOK-1;
Until k=N;
WriteLn('NOK = ',NOK+1);
{Поиск НОД}
NOD:=A[1];
For i:= 2 to N do
    if abs(A[i])>NOD then NOD:=A[i];
Repeat
k:=0;
For i:= 1 to N do
    if NOD mod A[i] = 0 then k:=k+1;
NOD:=NOD+1;
Until k=N;
WriteLn('NOD = ',NOD-1)
End.