Оформить ввод элементов массива m[-1..12] с клавиатуры.

Begin
  var  i : integer;
  var arr : array [-1..12] of integer;
  for i:=-1 to 12 do
    read(arr[i]);
end.
//Pascal ABC

Объективность — научный подход к исследованию разнообразных явлений реальной действительности, один из основных принципов материалистической диалектики, которая противопоставила себя объективизму. В гносеологическом аспекте «объективность» обозначает возможность познания объективной истины, характеризует содержание знаний как таковых, что отвечают их настоящей природе.

Актуальность информации – это степень соответствия информации текущему моменту времени. Поскольку информационные процессы растянуты во времени, то достоверная и адекватная, но устаревшая информация может приводить к ошибочным решениям.

Ценность информации — одно из важных свойств информации, оценка которого зависит от целей процессов её генерации, рецепции и обработки. Изучается специальными теориями информации, теорией принятия решений. Удобнее всего рассматривать проблематику ценности информации, приняв за определение информации (в духе работы Г. Кастлера «Возникновение биологической организации»), что: «информация есть запомненный выбор одного варианта из нескольких возможных и равноправных».

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

4.. Актуальная: Экологическая обстановка в мире с каждым днём ухудшается.

2. Неактуальная: Чтобы добыть огонь, нужно стукать камушек о камушек.

3. Достоверная: Силы, с которыми тела действуют друг на друга, равны по модулю и противоположны по направлению (информация из учебника).

4. Недостоверная: Люська из пятого подъезда ведёт разгульный образ жизни (слова соседки-сплетницы).

5. Объективная: Часы показывают 17 часов 50 минут.

6. Необъективная: Сейчас вечер.

7. Полная: Красный свет - стой, жёлтый - приготовься, зелёный - иди.

8. Неполная: Красный свет - стой, зелёный - иди (для трёхцветного светофора)

9. Полезная: Не сутулься, а то рано состаришься!

10. Бесполезная: В соседней деревне нет ни одного Олега.

11. Понятная: Два плюс два равно четыре.

12. Непонятная: жык лопр дыв мыг

program raf105;

const

 n = 10;

var

 x: array[1..n] of integer;

 i: integer;

 a,b,c: boolean;

begin

 a:= True;

 writeln('Заполните массив из ',n,' чисел');

 for i:=1 to n do

 begin

   readln(x[i]);

   a:= (x[i] = 0) and a;

   b:= ( not(c) and (x[i] > 0) ) or b;

   c:= ( not(b) and (x[i] < 0) ) or c;

 end;

 if a

   then writeln('Все числа равны нулю');

 if b

   then writeln('Первое ненулевое число - положительное');

 if c

   then writeln('Первое ненулевое число - отрицательное');

end.

PascalABC 3.4.2