ответ: 26, т. е. в данном случае критерием истинности может служить только авторитетность источника, проверенность его годами работы (иначе он не был бы авторитетным). Очевидно, что варианты 3, 5 - неверные. Вариант 4 разрешает сослаться на любой, в том числе недостоверный источник, что делает его неверным. Первый вариант может быть присущ и фейковой новости. Вариант 6 допускает возможность публикации информации на авторитетном сайте НЕ авторитетным человеком, но тогда это уже, понятно, неверно.
i: integer;
p: integer;
mas: array[0..10] of innteger;
begin
Writeln('Введите 10 чисел:');
Readln(mas[0], mas[1], mas[2], mas[3], mas[4], mas[5], mas[6], mas[7], mas[8], mas[9]);
Здесь нужно прописать условие (можно с циклом). Если mas0=mas1=mas2 и т.д.
end;
end;
end.