Примеры информационных процессов в обществе

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

Var   arr: array[1..27] of integer;   summ: integer; begin   randomize;   for var i : = 1 to 27 do   begin     arr[i] : = random(-5, 5);     summ : = summ + arr[i];   end;   writeln('массив: ',arr);   writeln('сумма всех элементов массива = ',summ);   for var i : = 1 to 27 do if arr[i] = 0 then arr[i] : = summ;   writeln('массив:   ',arr); end.пример работы: массив: [5,-1,1,5,4,-2,-3,0,3,5,-3,-4,3,0,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]сумма всех элементов массива = 14массив:   [5,-1,1,5,4,-2,-3,14,3,5,-3,-4,3,14,-1,-4,5,-2,1,-4,5,2,-4,5,4,-5,-1]var  arr: array of integer;   n,k,m: integer; begin  write('введи n: ');   readln(n);   randomize;   arr: = new integer[n];   for var i : = 0 to n-1 do  arr[i] : = random(-5, 5);   writeln('массив: ',arr);   for var i : = 0 to n-1 do  begin    if arr[i]< 0 then inc(k);     if (i> =1) and (i< =6) then inc(m);     if (i> =6) and (arr[i]> =0) then arr[i]: =1;   end;   writeln('количество отрицательных элементов массива = ',k);   writeln('количество элементов массива в интервале [2..7] = ',m);     writeln('массив:   ',arr); end.пример работы: введи n: 5массив: [0,1,-4,1,3]количество отрицательных элементов массива = 1количество элементов массива в интервале [2..7] = 4массив:   [0,1,-4,1,3]введи n: 15массив: [0,1,4,3,-3,5,-4,-1,1,-2,3,1,-4,1,3]количество отрицательных элементов массива = 5количество элементов массива в интервале [2..7] = 6массив:   [0,1,4,3,-3,5,-4,-1,1,-2,1,1,-4,1,1]

Var   f: text;   i, j, n, n1: integer;   matrix: array[,] of real; begin   assign(f, 'informat8.txt');   reset(f);   //найдём количество строк в матрице   while not eof(f) do     begin     readln(f);     inc(n);   end;   writeln('исходная матрица размерности ', n, 'x', n);   //инициализируем массив (размерность узнали выше)   matrix : = new real[n, n];   reset(f);   // далее работаем с матрицей размерности  [0..n-1] (инициализация происходит, начиная с 0)   for i : = 0 to n - 1 do   begin     for j : = 0 to n - 1 do     begin       read(f, matrix[i, j]);       write(matrix[i, j]: 8: 2);     end;     readln(f);     writeln;   end;   writeln;   n1 : = 0;   for i : = 0 to n - 1 do     for j : = 0 to n - 1 do       if matrix[i, j] < 0 then inc(n1);   if n1 > round(n * n / 2) then   begin     writeln('отрицательных элементов больше половины');     //удваиваем элементы в чётных строках     for i : = 0 to n - 1 do     begin       if odd(i) then begin         for j : = 0 to n - 1 do             matrix[i, j] : = matrix[i, j] * 2;       end;     end;   end else   begin     writeln('отрицательных элементов меньше половины или ровно половина');     //удваиваем элементы последнего столбца     for i : = 0 to n - 1 do       matrix[i, n - 1] : = matrix[i, n - 1] * 2;   end;       writeln('результирующая матрица');   for i : = 0 to n - 1 do  begin     for j : = 0 to n - 1 do       write(matrix[i, j]: 8: 2);     writeln;   end; end.результат работы: