Укажи, к какому информационному процессу соответствует осмотр места достопримечательностей вашего города.

немного не по теме, но надеюсь, того, чего не хватает, ты сможешь дополнить самолично?блага тебе.

Объяснение:

Информатика- один из самых современных областей знаний и наук, также относящаяся к группе знаний, которыми мы пользуемся на чуть ли не постоянной основе и всю свою собственную жизнь, используя те или иные, изученные и освоенные навыки использования и работы.Каждый особенный день сталкиваемся с технологиями и ее последующими, и казалось бы, все основные техники работ и их услуг, цель работ мы прекрасно знаем, но не все понимают, что предмет "Информатика"—не просто сборище базовых знаний о телефонах и ПК устройств, а целый, огромный, много сервисный аккаунт, дающий на все интересующие и интеллектуальные вопросы технологичный и современный ответ.

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

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

Можно при вводе фильтровать что вводится, если число не удовлетворяет требованиям оно игнорируется

var a: array[1..10] of integer;

n,c,i:integer;

inp : real;

begin

   readln(n);

   i:=1;

   repeat

       readln(inp);

       c := round(inp);

       if (inp = c) and (inp >= 0.0) and (inp <1001.0) then

           begin

               a[i]:= c;

               i:=i+1;

           end;

   until(i=n+1);

   

   c:=0;

   for i:= 1 to n do

       if a[i] < n then

           c:= a[i]+c;

   writeln(c);

end.