// PascalABC.Net 3.0, сборка 1064 var a:array[1..10] of integer; i:integer; begin for i:=1 to 10 do Read(a[i]); i:=2; while i<=10 do begin if a[i] mod 2 = 0 then Write(a[i],' '); i:=i+2 end end.
◘Объективность информации. Например: "На улице холодно" - это субъективная информация. А "На улице -14°" - объективная (но не всегда точная) ◘Достоверность информации. Ин-фа достоверна, если отражает истинное положение дел. (объективная информация всегда достоверна) ◘Полнота информации. Информация полная, если ее достаточно для понимания и принятия решения. ◘Точность информации. Определяется степенью ее близости к реальному состоянию объекта, процесса, явления и т.д. ◘Актуальность информации – важность для настоящего времени. ◘Полезность информации. - Самая ценная информация – объективная, достоверная, полная, и актуальная.
var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do Read(a[i]);
i:=2;
while i<=10 do begin
if a[i] mod 2 = 0 then Write(a[i],' ');
i:=i+2
end
end.
Тестовое решение:
4 5 6 3 9 8 4 10 7 2
8 10 2