Ақпарат ұсыну түрлері​

Ақпарат мына түрлерде болуы мүмкін:

• мəтіндер, суреттер, сызбалар, фотосуреттер;

• жарық немесе дыбыс сигналдары;

• радиотолқындар;

• электрлік жəне нервтік импульстер;

• магниттік жазбалар;

• ымдар мен қимылдар;

• иістер мен дəм сезінулер;

• ағзалардың белгілері мен қасиеттері ұрпақтарға беріліп отыратын хромосомдар жəне т.б.

Ақпарат қалай беріледі?

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

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.