1) в массиве хранятся сведения о количестве осадков, выпавших за январь. определить: а) общее количество осадков за январь; б) среднесуточное количество осадков 2) составьте программу, проверяющую, есть ли в данном массиве числа а, в, и определяющую, какое из них встречается раньше ( в случае, если таковые числа имеются

Program qq; uses crt; var m: array[1..31] of real; sr, all, a, b, ia, ib: real; i, n: integer;   //значения кол-ва осадков нецелые, т.к. целые встречаются редко. однако можно заменить и на integer. среднее значение (sr) всегда real, т.к. есть операция деления begin writeln ('введите количество дней: '); //возможность расчета запрашиваемых данных как за полный месяц (31 день - верхняя граница массива), так и за какую-то его часть - n дней. readln (n); all: =0; //обнуляем переменные. ia: =0; ib: =0; for i: =1 to n do          read (m[i]); //задаем массив. если массив задается другим способом - стоило бы указать в . for i: =1 to n do           all: =all+m[i]; //подсчёт общего кол-ва осадков sr: =all/n; //среднее арифметическое осадков writeln('введите числа а и b'); read (a, b); for i: =1 to n do                      begin                      if m[i]=b then                                 if ib=0 then  ib: =i;   //сравниваем оба числа поочередно                       if m[i]=a then                       //с каждым элементом массива, если                                    if ia=0 then  ia: =i;   //, то запоминаем индекс. вложенное условие позволяет считать индекс только первого встретившегося числа.                       end; writeln ('среднесуточное кол-во осадков: ', sr: 6: 2); writeln ('общее кол-во осадков', all: 8: 2); if ib< > 0 then                writeln ('est` chislo b'); //если индекс не 0, значит мы нашли b в массиве if ia< > 0 then             writeln ('est` chislo a'); if (ib< > 0) and (ia< > 0) then  //имеет смысл сравнивать позиции чисел, только если оба числа присутствуют в массиве                                           if ia< ib then //число с меньшим индексом, очевидно, встречается первым                                                         writeln ('pervim vstr a')                                                     else                                                         writeln ('pervim vstr b'); end.

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

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