program fpro;
var
a : array[0..15] of integer;
i : integer;
begin
randomize;
for i :=0 to 15 do
begin
a[i] := random(1,20);
if (a[i] > 5) and (a[i] < 15) then writeln(a[i]);
end;
end.
1) 4)
PS
3 не понял, то программные архиваторы, то программное архивирование.
незняю как проверку делать но вот ответы
№3
1001100110(2)
№4
101000010(2)
Что надо сделать?! Не совсем понятно