По формуле Шеннона
log(2)6=2.5
2.5 бита информации уменьшают неопределённость знаний в 6 раз.
Через скрэйдж это объект со скриатами
Я сделала ввод массива с клавиатуры, но ты можешь сделать его рандомными числами
const N=5;
var A: array [1..N] of real;
i: integer;
begin
writeln('Введите массив');
for i:=1 to N do
readln(A[i]);
writeln('Положительные элементы:');
for i:=1 to N do
if A[i]>0 then
writeln('A[', i, ']=', A[i]);
end.
Тоже, что и было бы, не будь грамотных людей.