2+8 =10 - сума цифр
2×8=16 - произведение цифр
Program massiv;
var a: array[1..10] of integer;
b,i,p: integer;
begin
p:=1;
for i:=1 to 10 do
begin
write ('Введите a[',i,']=');
readln (a[i]);
end;
writeln ('Введите число');
readln (b);
for i:=1 to 10 do
begin
if a[i]<b then
p:=p*a[i];
end;
for i:=1 to 10 do
write (a[i],' ');
writeln;
writeln ('Произведение элементов, меньших ',b,', равно ',p);
end.
256=2^8
16=2^4
Объём файла=кол-во символов*кол-во бит на 1 символ
то есть объём увеличится в 2 раза)