Какие бывают информационные процессы

Обработка информации.

Хранение  информации.передача информации.обработка  информации.поиск информации.информационые  процесы в живой природе

Var i,max,min,flag,a,b,n: integer;   begin    read(n);     flag: =0;     for i: =1 to n do       begin       read(a);         if i=1 then         begin           max: =a;           min: =a;         end       else       begin         if a> max then           max: =a;         if min> a then           min: =a;         if b> a then           flag: =1;           b: =a;         end;       end;       if flag=0 then         writeln('yes')       else         writeln('no');         writeln(max-min);             end.

Var a,p,n,i: integer; begin   p : = 0;   n : = 0;   for i : = 1 to 15 do   begin   read(a);   if a mod 3 = 0 then       if a > 0 then p : = p + 1       else       if a < 0 then n : = n + 1   end;   if p > n then writeln('положительных') else   if p < n then writeln('отрицательных') else       writeln('одинаково') end. {вариант "как-то посложнее"} var a,i,s: integer; begin   s : = 0;   for i : = 1 to 15 do   begin   read(a);   s : = s + ord(a mod 3 = 0) * (ord(a > 0) - ord(a < 0))   end;   if s > 0 then writeln('положительных') else   if s < 0 then writeln('отрицательных') else   writeln('одинаково') end.