Метеорологическая станция ведет наблюдение за влажностью воздуха. Результатом одного измерения является целое число от 0 до 70 процентов, которое записывается при минимально возможного количества бит. Станция делала по 6 измерений в день 92 дня. Определите информационный объем результатов наблюдений в килобайтах
type
mas=array[1..n,1..n]of integer;
var
a,b:mas;
i,j,sum:integer;
begin
randomize;
sum:=0;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=Random(30);
for i:=1 to n do
for j:=1 to n do
b[i,j]:=Random(30);
writeln('Первый массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
writeln;
writeln('Второй массив:');
for i:=1 to n do
begin
for j:=1 to n do
write(b[i,j]:4);
writeln;
end;
writeln('Разность двух массивов A-B: ');
for i:=1 to n do
begin
for j:=1 to n do
begin
sum:=sum+a[i,j]+b[i,j];
write(a[i,j]-b[i,j]:4);
end;
writeln;
end;
writeln('Сумма элементов двух массивов: ',sum);
end.