Асоціативний кущ на тему "База Даних"
​

var
t,o:array [1..30] of integer;
d,s,i:integer;
begin
randomize;
writeln ('Kol-vo osadkov: ');
for i:=1 to 30 do begin
o[i]:=random(20);
write (o[i],' ,');
if i=15 then writeln;
end;
writeln;
writeln ('Temperatura vozduxa: ');
for i:=1 to 30 do begin
t[i]:=random(26)-15;
if (t[i]>0) and (o[i]<>0) then d:=d+o[i] else
if (t[i]<0) and (o[i]<>0) then s:=s+o[i];
write (t[i],',');
if i=15 then writeln;
end;
writeln;
writeln ('Kol-vo osadkov v vide snega: ',s);
writeln ('Kol-vo osadkov v vide dozhdya: ',d);
readln;
end.

Объяснение:

Информационный процесс - процесс получения, создания, сбора, обработки, накопления, хранения, поиска, распространения, использования информации

хранение - книги и другие печатные материалы расположены в помещении библиотеки;

поиск - когда читатель заказывает книгу, библиотекарь должен отыскать ее;

передача - представленные в книге сведения, передаваемые читателю;

обработка - когда в библиотеку поступает новая литература, данные о которой заносят в каталог; читая, читатель обрабатывает данные, тем самым и происходит информационный процесс