60 дать определение словам словам с пунктами (1-4) 1. типы обработки информации. 2. систематизация информации. 3. поиск информации. 4. изменение формы представления информации. ответить письменно на вопросы с пунктами (5-7) 5. примеры исходных данных и требуемого результата в условии (условие : в одной пачке 23 книги и в ней на 8 книг меньше, чем во второй, а в третьей пачке на 6 книг больше, чем во второй. сколько всего книг в трёх к какому типу информационных относятся эта ? 6. в чём различие между первым и вторым типами обработки информации? 7. типы информации, отсортированной: а) по алфавиту; б) в порядке убывания; в) в хронологической последовательности. здесь ошибки всё списано с учебника и !

1  кодирование 2  систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д. 3. нахождение информации в сети, на сервере и т. д. 4. форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д.  5. к типу и текстовому. 6. они могут быть сделаны на разных текстовых редакторах. 7. по алфавиту - фамилии в школьном журнале, файлы, документы.. в порядке убывания - цифры, в хронологической последовательности -   даты, события, файлы, документы.

Var   i, j, n, kolpol, kolotr, sum, p, ch, k : integer;   a : array of integer; begin   readln(n);   setlength(a,n+1);   randomize;   for i: = 1 to n do       a[i]: = random(100)-50;     sum: = 0; p: = 1;   for i: = 1 to n do   begin       if a[i] > 0 then       begin           inc(kolpol);           sum: = sum + a[i];       end;       if a[i] > 0 then       begin           inc(kolotr);           p: = p * a[i];       end;   end;     writeln('количество положительных элементов: ',kolpol);   writeln('сумма положительных элементов: ',sum);   writeln('количество отрицательных элементов: ',kolotr);   writeln('произведение отрицательных элементов: ',p);     i: = 1; p: = 1; ch: = 0;   while (a[i] > = 0) and (i < > n+1) do   begin       p: = p * a[i];       inc(ch);       inc(i);   end;     if ch < > 0 then        writeln('произведение до первого отрицательного элемента: ',p)   else       writeln('первый элемент массива отрицательный! ');         for i: = 1 to n-1 do       for j: = 1 to n-i do           if a[j] > a[j+1] then           begin               k: = a[j];               a[j]: = a[j+1];               a[j+1]: = k;           end;   writeln('массив отсортирован по возрастанию: ');   for i: = 1 to n do       write(a[i],'  '); end.

Var   str : string;   i, count : integer; begin   {часть 1 - обратный порядок}   write('введите строку: ');   readln(str);   write('результат: ');   for i : = length(str) downto 1 do     write(str[i]);   {часть 2 - считаем "и"}   count : = 0;   for i : = 1 to length(str) do     if (str[i] = 'и') and (i mod 2 = 0) then       count : = count + 1;   writeln;             {переходим на следующую строку}   for i : = 1 to count do     writeln('и'); end.