Решите задачу №3 4 вариант: вычислить сумму нечетных цифр. На языке программирования ОБЯЗАТЕЛЬНО прочтите постановку задачи.

Информация всегда являлась немаловажным фактором общественного развития. С ее человечество концентрировало многовековой опыт жизни прежних поколений. Поговорка «Кто владеет информацией - тот владеет миром» подчёркивает социальную роль информации. Владение информацией открывает новые модели управления, формирует новые социальные структуры общества.

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

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

По данным ЮНЕСКО, более половины всего занятого населения наиболее развитых стран прямо или косвенно принимает участие в процессе производства, хранения и распространения информации.

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

Информационное общество — общество, в котором большинство работающих занято производством, хранением, переработкой и реализацией информации, особенно высшей ее формы — знаний.

Const NN=50;
Var
a:array [1..NN,1..NN] of integer;
maxi,maxj,mini,minj,i,j,n,m:integer;
begin
writeln('Введите кол-во строк и столбцов массива: ');
readln(n,m);
for i:= 1 to n do
  for j:= 1 to m do
  begin
    write('a[',i,',',j,']= ');
    readln(a[i,j]);
  end;
writeln; writeln('Получившийся массив: ');
for i:= 1 to n do
  begin
    for j:= 1 to m do
      write(a[i,j]:4);
    writeln;
  end;
maxi:=1;
maxj:=1;
mini:=1;
minj:=1;
for i:= 1 to n do
  for j:= 1 to m do
  begin
    if a[i,j]>a[maxi,maxj] then
    begin
      maxi:=i;
      maxj:=j;
    end
    else if a[i,j]<a[mini,minj] then
    begin
      mini:=i;
      minj:=j;
    end;
  end;
writeln; writeln('Получившийся массив: ');
i:=a[maxi,maxj];
a[maxi,maxj]:=a[mini,minj];
a[mini,minj]:=i;
for i:= 1 to n do
  begin
    for j:= 1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end.