На 10 земельних ділянках було проведено обстеження рівня pH ґрунту. Результати обстеження подано в таблиці: 1 2 3 4 5 6 7 8 9 10
5 6 7 3 9 8 4 5 7 5
У вибраному середовищі програмування створіть проект Ґрунти, у якому можна визначити кількість земельних ділянок з кислими (pH менше 7), з нейтральними (pH = 7) та лужними (pH більше 7) ґрунтами.

Program massiv;
uses crt;
type
matr=array[1..10] of integer;
var
a: matr;
procedure vvod(var a:matr);
var
i: integer;
begin
for i:=1 to 10 do
begin
write ('Введите элемент массива a[',i,']');
readln(a[i]);
end;
end;
procedure ivyvod(var a: matr);
var i: integer;
begin
write ('Исходный массив ');
for i:=1 to 10 do
write (a[i],' ');
writeln;
end;
procedure sort(var a:matr);
var
i,j,min: byte; vsp: integer;
begin
for i:=1 to 9 do
begin
min:=i;
for j:=i+1 to 10 do
if a[j]<a[min] then min:=j;
vsp:=a[i]; a[i]:=a[min]; a[min]:=vsp;
end;
end;
procedure vyvod(a:matr);
var
i:integer;
begin
write('Отсортированная последовательность массива ');
for i:=1 to 10 do
begin
if a[i] mod 2 = 0 then write(' ',a[i]);
end;
end;
begin
vvod(a);
ivyvod(a);
sort(a);
vyvod(a);
end.

Формула Шенона: 2^I=N, где N - объём информации, I - количество бит.
I = [log_2 (N)]  - округление в большую сторону
1 байте = 8 бит.

Задача 1
Трижды запускается либо красная, либо зелёная ракета.
N = 2^3 = 8
ответ: 8

Задача 2
I = [log_2 (800)]  = [9.6438] = 10 бит на ученика
Объём 320 учащихся  = 320 * 10 = 3200 бит = 400 байт
ответ: 4

Задача 3
I = [log_2 (10+12+12)]  = [5.0875] = 6 бит на символ
6 * 11 = 66 бит = 8.25 байт ~= 9 байт
9 * 60 = 540 байт
ответ: 3

Задача 4
I = [log_2 (5*5)]  = [4.6439] = 5 бит на клетку
15 ходов + начальная позиция = 16 клеток
16 * 5 бит = 80 бит = 10 байт
ответ: 1