Объективность что это такое

Это объяктивность алвщызыззыщчвзцхцзпзм

Объяснение:

ОБЪЕКТИВНОСТЬ

ОБЪЕКТИВНОСТЬ

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

Абсолютная О. недостижима ни в одной области, включая научное познание. Тем не менее идеал объективного знания — одна из наиболее фундаментальных ценностей науки.

PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программа не работает, обновите версию!

1. Функция

function avg(a:array of integer):=a.Where(t->t>0).Average;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  Writeln('Среднее значение положительных элементов ',avg(a))
end.

2. Процедура

procedure avg(a:array of integer; var m:real);
begin
  m:=a.Where(t->t>0).Average
end;

begin
  var a:=ReadAllText('input.txt').ToIntegers;
  var m:real;
  avg(a,m);
  Writeln('Среднее значение положительных элементов ',m)
end.

Хорошо видно, что решение с функцией имеет явное преимущество.

Program arr_length;

const
  IN_FILENAME = 'INPUT.txt';
  OUT_FILENAME = 'OUTPUT.txt';

var
  fileIn,fileOut: TextFile;
  s,t: string;

begin
  writeln('Загружаю входные данные...');
  t := '';
  AssignFile(fileIn, IN_FILENAME);
  AssignFile(fileOut, OUT_FILENAME);
    reset(fileIn);
    while not eof(fileIn) do
      begin
        readln(fileIn, s);
        if (s = '0') then
             break
        else
          t := t + s;
      end;
    CloseFile(fileIn);
    rewrite(fileOut);
    writeln(fileOut, Length(t));
    CloseFile(fileOut);
end.